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Preface 



With the increasing availability of computer access through remote terminals 
and time sharing, more and more schools and colleges are able to introduce 
programming to substantial numbers of students. 

This book is an attempt to incorporate computer programming, using BASIC 
language, and the teaching of mathematics. I believe the two activities support 
each other. 

Flowcharts are used throughout the text. The general approach is to begin 
with short complete programs and then simply and methodically build them 
into larger programs. Each new capability or new organization of capabilities 
is presented to create a desired effect in a program. Details are introduced 
only as they become necessary or useful for the writing of a program, rather 
than as sets of facts to be memorized in case a particular situation should 
ever arise. Over 125 programs are used to achieve this. 

All of the elementary BASIC language capabilities are presented in the first 
five chapters and Chap. 7. Chapter 6 and Chaps. 8-13 emphasize applications. 
The first seven chapters may be studied in conjunction with, or at any time fol- 
lowing, a first-year algebra course. Chapters 8-13 are applications oriented, 
covering many of the popular topics of precalculus mathematics, with all of the 
required algorithms developed in the text. Thus, this text is suitable for use 
either as a supplementary text to be incorporated into existing mathematics 
courses, or as the text for a course or unit to cover programming alone. 

Appendices A and B, respectively, present information for the operation 
of programs on paper tape and a few comments on error diagnosis. Appendix 
C introduces two formatting capabilities that are available on some time- 
sharing systems. Flowchart shapes are summarized in Appendix D. A sum- 
mary of BASIC statement types is provided in Appendix E and an index of 
all the programs in Chaps. 2-13 is provided in Appendix F. 

Many of the problems in the book are intended to enable the student to 
develop interesting mathematical concepts upon seeing the printed results of 
program RUNS. Possible solution programs are given in Appendix G for the 
even-numbered problems to give the student an indication of the correctness 



of his program without being required to run every program. However, par- 
ticularly at the beginning, students derive greater benefit from seeing programs 
run (or not run ) than from any other programming activity. 

I wish to thank Germantown Friends School for its support in the prepara- 
tion of this text. Thanks are due Mrs. Geoffrey Wilson for test teaching and 
numerous students for test learning portions of the manuscript. 

James S. Coan 
Philadelphia 



itioi 



The First Edition of this book has been significantly enhanced by present- 
ing character string handling and the use of data files. Since strings and files 
involve language differences which depend on the computer, two versions are 
presented. Demonstration programs are presented in Chap. 7 for both General 
Electric Information Services BASIC and Hewlett-Packard BASIC. 

The little used statement RESTORE is no longer discussed, and the INPUT 
statement is now presented in Chap. 1. 

Thanks are due to the Community Computer Corporation for assistance in 
the preparation of material for this Second Edition. 



James S. Coan 



Philadelphia 
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An Introduction to Computer Programming in BASIC 



CHAPTER 1 



In working with a computer, you, the programmer, must communicate 
with the computer. In order to do that you will have to use a language that 
the computer will understand. There are many languages written for this pur- 
pose. The language of this text is called BASIC. The actual physical com- 
munication is rather complicated and we will ignore most of the mechanics 
except for the apparatus at our end of things. Th.e device we will be using is 
called a remote terminal. It will have a specific name depending on the manu- 
facturer. The remote terminal has a keyboard, which is the part we are most 
concerned about. 

1-1 PRINT 

No matter how complicated a particular set of instructions is, you will have 
to tell the computer to put the results into some form discernible to yourself. 
Therefore, let us begin with a discussion of the PRINT statement. If you want 
the computer to write the following statement "THIS IS A SHORT PRO- 
GRAM," you will type on the keyboard of the terminal as follows: 

10 PRINT "THIS IS A SH0RT PR0GRAM." 
20 END 

The computer, on proper instruction, will do exactly what you have set out 
to do. 

The two lines 10 and 20 constitute a complete program. Several comments 
are in order here. 

1) Note that every line in a program must begin with a positive integer. 

2) The statement that we want to write out is in quotes; this may be used 
to good advantage, for example, for headings and labels. 

3) In many time-share systems, every program must have as its highest 
numbered line the END statement. In some systems, the END statement 
is optional. 

1 
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4) Note that all the letters are capitals. The terminal you may use or may 
not be restricted in this way. Note also that the letter "O" has a slash 
mark to distinguish it from the digit "0." On some terminals the reverse 
is true, the digit "0" has a slash and the letter "O" does not. On some 
printers one is more nearly a circle than the other or one is nearly dia- 
mond shaped. You can easily determine the method used by your equip- 
ment by examining some sample output on your screen or "hard copy." 

5) It is conventional although not required to use intervals of 10 for the 
numbers of adjacent lines in a program. This is because any modifica- 
tion in the program must aiso have une nurnoers. So you can use hie 
in-between numbers for that nuroose. It should b* 1 o^iyif/-,rHprr *-r» innur 
at this point that the line numbers do not have to be typed in order. 
No matter what order they are typed in, the computer will follow 
numerical order in executing the program. 

6) Each line of a program is called a program statement. 

You probably think of the computer as something that more commonly 
produces numerical results and you are partly correct. Suppose you wish to 
multiply 23.4 by 91. One way of doing this on the computer would be to 
write a program like this: 

10 PRINT 23.4*91 
20 END 

Then on proper instruction the computer will type out the following and stop. 

2129.4 

D0NE 

Computers vary as to the message that gets printed here. Notice the absence 
of quotes. In this case you have instructed the computer to perform an opera- 
tion. Had you in fact wanted 23.4 ° 91 typed out, then you would change the 
program. You might write the following: 

10 PRINT "23.4*91 = ". 23. 4*9 1 

20 END 

This time the result will be as follows: 

23.4*91= 2129.4 

D0NE 

You have succeeded in instructing the computer not only to perform an opera- 
tion, but to print out the result in easily understandable form, which is desir- 
able throughout mathematics. Notice the use of the comma here. The comma 
may be used to separate the different parts of a PRINT statement. Used in 
this way, a comma is called a delimiter. Notice too, that there are eight spaces 
oetwccn trie cqiuiis sign ana Ine number. A way io eliminate all but one of 
them will be explained later. There are many fine points that we will discuss 
as we progress, but for now we will take it in small quantities. 

If we were limited to the PRINT and the END instructions, we would 
quickly return to using pencil and paper or an ordinary desk calculator. With- 
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out some additional capability, the computer would soon disappear. This 
brings us to the READ and DATA statements. 



PRINT 

Characters in quotes will be printed exactly as typed. Computed 
results will be typed as decimal numbers or as integers. 



1-2 READ-DATA 

The READ statement says to look for DATA as in the following: 

10 DATA 23.4.91*83. 19, 87.94, 76.5.98.8 76.9 18 

20 READ A. B 

30 PRINT A*B 

35 G3T3 20 

40 END 

The computer ignores the DATA statement until it finds a READ, then it 
takes the first number in the first DATA statement and assigns that value to 
the first variable in the READ statement. Then, if there is a comma and 
another variable in READ as in our example, the computer assigns the second 
number in the DATA line to it; were there a third variable, the computer 
would continue until it ran out of variables. In our program, the first time 
through, A = 23.4 and B = 91. The next line says PRINT the product. Having 
printed the product the computer looks for the next instruction, which is 
G0T0 20. This is a new one that means exactly what it says. So the computer 
will G0T0 line 20 and execute that instruction again. At this point the com- 
puter "knows" that it has already read and used the first two numbers in 
the DATA line. So it goes to the third and fourth numbers and assigns them 
to A and B in order and proceeds to print the product of 83 and 19, then 
goes back and assigns the fifth and sixth numbers to A and B, and so on until 
it runs out of numbers in the DATA line. There may be any number of DATA 
lines in a given program; all you need to realize for the time being is that a 
comma must be used to separate each discrete item of data and a comma 
should not be placed after the last item in a particular DATA line. Also, be 
careful not to use commas to designate thousands, millions, etc. Warning: You 
may not put variables or operation symbols in a DATA line. Only numbers in 
decimal form are allowed so far. Here is the computer's response to the above 
program: 



2129.4 




1577 




81 78 




454. 48 




8041 68. 




0UT 9F DATA 


I'M LIME 20 
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Note the explicit message at the completion of the print-out. This will vary 
from computer to computer. 

In our examples so far, we have used only multiplication (°). The other 
arithmetic operations that you may use are addition (+), subtraction (— ), 
division (/), and exponentiation (raising to a power). There are two symbols 
in common use for exponentiation: one is an upwards arrow (f), and the other 
is a double asterisk (°°). Symbols used to instruct the computer to perform 
some operation are called operators. The symbols listed here are specifically 
designated as the arithmetic operators. The numbers on which the operation 

la lO ty^ p^xiOi ilk^^x aio uiUlo^ Uf/L,t (JIlUo, VjGliliaiy IU Cunvclluuu ill ihycuuij 111C 

multiplication symbol must be present. AB in algebra must be written A ° B 
for the computer. The computer assigns the same priorities to arithmetic 
operations as are assigned in algebra. If there are several operations of the 
same priority to be performed on the same line, the computer does them from 
left to right. Several sample programs will be given soon. 



READ 

The READ statement looks for numbers in a DATA statement. 
READ X, Y, Z looks for numbers in groups of three. 

DATA 

The DATA statement supplies values for the variables designated 
in the corresponding READ statement. Items of data must be sep- 
arated by a comma. Numbers only are allowed. 



1-3 SYSTEM COMMANDS 

There are two kinds of instructions of which you should be aware. We have 
already discussed an instruction given by a program that you have written. We 
have not yet mentioned an equally important kind of instruction, the system 
command. We must realize that the computer does nothing by itself. There- 
fore, there must be what is called an executive program which will respond to 
your wishes. You need not worry about the executive program; it is taken care 
of by the people who maintain the computer. 

The first system command required is referred to as the sign-on or log-on, 
The exact form of this varies from computer to computer. So we really cannot 
be specific here. It simply notifies the computer that you would like to use it. 

Once you are signed on, the next most important command is RUN. After 
you nave iypeu out your program, Ine computer must have a way of knowing 
that you want it to execute the program. So you must type RUN and then 
touch the return key on the keyboard. Only then will it respond to the pro- 
grammed instructions. 

Possibly next in importance is the command SCR (SCRub or SCRatch) or 
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CLE (CLEar) followed by depressing the return key. (Which you use will 
depend on the computer you are connected with.) Suppose you have run a 
program and someone else would like to run his. The old program may be 
erased by using the SCR command. So whenever you begin a new program 
it might be wise to simply type SCR and touch the return key. The system 
command must not be preceded by a number. There are several other com- 
mands that we will take up as they seem appropriate. 



RUN 










Notifies 


the computer to execute the program 


instructions 


Must 


not have a 


number in front of it. 








SCR or CLE -— M ^^ 








Notifies 


the computer that you 


are not going 


to use the current 


program. The current program is e 


ased from the working area 


of the 


computer. 


Must not have a number 


n front of it. 







1-4 LET 

At this point you do have enough information to write quite a few 
programs. However, another statement type that may be used to make life 
easier is the LET statement. The LET statement may be used to assign any 
number or any algebraic expression to any variable. Using a LET statement, 
the last program would look like this: 

10 DATA 23.4.91,83. 19.87,94. 76. 5.98,876,918 

20 READ A, B 

30 LET C=A*B 

40 PRINT C 

50 G0T3 20 

60 ENO 

RUM 

2129.4 
1577 
81 73 
454.48 
804168. 

0UT 3F DATA IN LINE 20 

We obtain the same results as before. In this particular program, we really 
did not save anything. However, in any situation where we need to write the 
value of A ° B several times or the expression is more involved, we will see 
that a saving may result. There are many things that you could not do 
without a LET capability. 
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LET 

May be used to assign explicit values to a variable as LET X = 4.56, 
or may be used to assign algebraic expressions to a variable as LET 
V = X°F + Y <, G. Note: All variables on the right-hand side must 
have been previously evaluated. On some computers LET is optional. 
Such systems permit Z = 4.56, for example. 



1-5 INPUT 

The INPUT statement serves much the same purpose as the READ state- 
ment in that it permits us to provide numbers for the computer to work with. 
For example, 100 INPUT A will cause the computer to print a question mark 
and stop at line 100. The question mark is a signal to whoever is operating the 
terminal that he or she is to type the desired value for A on the keyboard and 
press the carriage return key to resume the run of the program. Likewise, 100 
INPUT A, B, C will call for three numbers separated by commas to be typed 
at the keyboard. It is advisable to have the computer print a label so that the 
operator can determine the nature of the numbers required. In the following 
program, note that the semicolon at the end of line 100 enables us to type the 
values for A and B on the same line as the printed label. The input numbers 
15, 17 following the question mark were typed at the keyboard by the program 
operator. 



100 


PRINT 


"INPUT TW0 NUMBERS 


• * i 


110 


INPUT 


A, B 




120 


PRINT 


" THE NUMBERS ARE! 


"i A; B 


130 


PRINT 


THEIR SUM IS: 


";A+B 


140 


PRINT 


"THEIR PRODUCT IS: 


"; a*b 


150 


END 






RUN 









INPUT TW0 NUMBERS:?15, 17 
THE NUMBERS ARE: 15 1 

THEIR SUM IS: 32 
THEIR PR0DUCT IS: 255 

D0NE 



INPUT 

Causes the computer to request data from the keyboard. 



C * H*T)T 17 DPAOPHIC 



If we want the computer to obtain a decimal value for a compound frac- 
tion, there may be several programs that will do the job. Here we will have 
to use our knowledge of the order of operations as determined in algebra. 
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Three programs follow that find a decimal value for 

2/5 + 3/7 
3/4 - 1/3 



10 


LET N= 


= 2/5+3/7 


20 


LET 0= 


= 3/4- 


1/3 


30 


PRINT 


N/0 




40 


END 






RUN 








!.' 


98857 






O0NE 







10 LET F=(2/5+3/7>/(3/ 4-1/3) 

20 PRINT F 

30 END 
RUN 

1-98857 

D3NE 



10 PRINT (2/5+3/7)/(3/ 4-1/3) 

20 END 
RUN 



1-98857 
D0NE 

Parentheses serve as a powerful tool in grouping terms properly for the 
desired results. Keep in mind that priorities are exactly as they are in algebra 
and that if several operations of the same priority appear in the same line, they 
are executed from left to right. 

Carefully study the programs which follow to see how the placement of the 
parentheses affects the results. 

10 PRINT "3/5/3/ 5="1 3/5/3/5 

20 PRINT "3/(5/3/5) = "l 3/(5/3/5) 

30 PRINT "3/5/(3/S) = "l 3/5/(3/5) 

40 PRINT "(3/S)/(3/5) = "l(3/5)/(3/5) 

50 PRINT "<3/5/3)/5="l<3/5/3)/5 

60 PRINT "<3/5)/3/5="I(3/5)/3/5 

70 END 

RUN 

3/5/3/5= .04 
3/(5/3/5)= 9. 
3/5/(3/5)= 1 
(3/5)/(3/5)= 1 
(3/5/3)/5= .04 
(3/5)/3/5= .04 

D0NE 



10 


PRINT 


"A=' 


"J2t3+l + 3t2+l 


20 


PRINT 


••B=' 


"J2»(3+l)+3t2+l 


30 


PRINT 


"C=' 


"J2»3+(l + 3)t2+l 


40 


PRINT 


••D=' 


"; 2t3+ l + 3t (2+ 1 ) 


SO 


PRINT 


■•E=' 


"J2t ( 3+1 + 3) t 2+1 


60 


END 






RUN 
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A= 


19 


B= 


26 


c= 


25 


0= 


36 



10 


LET A=98 781. 


20 


LET Al=8976 


30 


LET P=A*A1 


40 


PRINT A*"*"»A1» 


50 


END 


RUN 





E= 1638 5 
D0NE 

It is important to know the capacity of the computer you are working with. 
Notice that according to the computer, (2/5 + 3/7)/( 3/4 - 1/3 ) = 1.98857. 
If we work that out longhand, the result would be 1.98857142. BASIC pro- 
vides from 6 to 15 digits, if they are needed, depending on the computer, with 
the last digit rounded off in decimal uuuiuci's, ii it is trie capacity ^igit. 

If the results require more than the digit capacity of the computer, the 
computer prints in scientific notation as follows: 



"»P 



93781. * 8976 = 8.86658E*08 

D0NE 



The E + 08 means "times ten to the eighth power" and the decimal number is 
rounded off to the sixth digit. When the computer uses this notation, it is 
called E-format, Again we get large spaces using the comma to delimit the 
printed results. We will discuss this before we wind up chapter one. 

A new item Al appears in the above program in line 20. There you will find 
the statement LET Al = 8976. The computer treats this as a new variable. In 
BASIC you may use any letter of the alphabet and any letter of the alphabet 
followed by a single digit as a variable. Some computers have additional 
simple variables. Thus a large number of variables are available. 

Probably the best way to learn how the computer handles scientific notation 
is by experience. So, let us run a sample program to see what happens. 



. 16132E-05.2.83E+06 



5 PRINT "X", "Y"»"Q" 


* "P* 1 * M S** 


10 DATA 1.31E+10.2. 


13E+1 1. 1 


20 READ X,Y 




26 LET Q=X/Y 




40 LET P=X*Y 




50 LET S=X*Y 




60 PRINT X, Y.Q.P.S 




65 G0T0 20 




70 END 




RUN 
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X Y P S 

1.31000E+10 2.13000E+11 6.15023E-02 2.79030E+2I 2.26100E*11 

1.16132E-05 2.83000E+06 A. 10360E-12 32.8654 2.33000E+06 

0UT 0F DATA IN LINE 20 

Notice the use of Q for quotient, P for product, etc. This is a technique 
that is useful not only on the computer, but throughout mathematics. 

Suppose you wish to write a program to find the total cost of a purchase 
in which there are different numbers of items at various prices, say 2 @ $.35, 
3 @ $2.65, 11 @ $.25, 1 @ $9.49, and 35 @ $1.59. We could have many 
more, but for a sample this should suffice. This program could of course be 
written in several ways, but here is one possibility: 



10 PRINT "ITEMS". "UNIT PRI CE". "C3 ST". "SUBT01 


rAL" 


20 DATA 2> . 


35. 


3. 2.65. 1 1. .2 5. 1.9. 49.3 5. 1.59 




25 LET T=0 








30 READ N.P 








40 LET T=T+ 


N*P 






45 PRINT N. 


P,N*P, T 




50 G0T0 30 








70 END 








RUN 








ITEMS 




UNIT PRICE C9ST 


SUBTOTAL 


2 




.35 .7 


. 7 


3 




2.65 7.95 


3. 65 


1 1 




.25 2-75 


11.4 


1 




9 . 49 9 . 49 


20. 39 


35 




1.59 55.65 


76. 54 


0UT "IF DATA 


IM 


LINE 30 





The single figure we set out to obtain is in the lower right-hand coiner. The 
result is $76.54; however, the other information is bound to be useful in at 
least some situations. Besides, even if we only print the right-hand column, 
we do not yet know how to dispose of the first four figures in that column. If 
you only want to print the right-hand column, then lines 10 and 45 may be 
altered thus: 

10 PRINT "SUBT0TAL" 
45 PRINT T 

and only that column will be printed. Notice that line 10 is executed only once 
and line 45 is executed five times. The G0T0 statement in line 50 only 
returns the computer back to line 30. So the computer only prints the headings 
once and only lets T = once. 

Still, in the last program, the combination of lines 25 and 40 may seem 
strange, but it will not as soon as you gain a little more insight into how the 
computer works. Line 25 is said to initialize the value of T at 0, i.e., give it an 
initial value of 0. When the computer executes the initializing statement, line 
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25 LET T = 0, it "says" that there is a location in the computer storage area 
which this "ro^rarn will call T and that this "r^^ram als~ ~r><**->!~^» *h~*" th~ 
number zero be stored in that location for now. If we then say 26 LET T = 5, 
then the computer will put the number 5 in that location designated as T and 
zero will no longer be there. If we write a program that says 25 LET T = 
followed by 26 LET T = T + 1, then the computer goes to the location where 
it is storing the value for T, "sees" 0, adds 1 to it, and returns the result to the 
location from which it just got 0, thereby replacing (the old value) with 1 
(the new value). So we see that in BASIC (as in other computer languages) = 
does not mean "two names for the same thing." It means, instead, that the 
number on the right is to be placed in a location whose name is specified on 
the left. Thus we see that the equals sign as used here really specifies an opera- 
tion for the computer to perform. So the equals sign is called an assignment 
operator or a replacement operator, and the LET statement is called the 
assignment statement or replacement statement. 

Let us go through the program line by line. The lowest numbered line is a 
PRINT statement. So, right off, the computer prints the headings. Then it 
recognizes that the next statement is a DATA statement and ignores it. Line 
25 assigns the value to T. Then in line 30 the computer reads the first two 
numbers in the DATA line. Line 40 says that the previous value of T is to be 
taken out of storage and added to N times P. So, the first time through line 
40, the value of T on the left will be (from storage) plus the cost of two 
items at $.35, or $.70, and the computer returns the value .70 to the location 
in storage called T. Line 50 sends the computer back to read the next two 
numbers in the DATA line and to add their product (7.95) to .70 to get 8.65. 
It should be clear that we are printing the values of N, P, N times P, and T 
each time we read two new numbers. This process continues until the com- 
puter finds no more data. This causes the computer to terminate the RUN. 



1-7 COMMA AND SEMICOLON IN PRINT STATEMENTS 

Let us look at one more capability. In two of the programs of this chapter, 
the results were printed out with unnecessary great spaces. You may have 
noticed that we did not have these spaces in the two programs where semi- 
colons were used in the PRINT statements. We have two delimiters, i.e., we 
have two signals that tell the computer how closely we want the results 
printed. The rules are a little complicated, but in general, the semicolon 
specifies closer spacing than the comma. The comma sets up zones across the 
page. The number of characters in the zones does vary from computer to 
computer, but 15 characters per zone is common. This zone width does 
not change with the number of digits in the numbers being printed. The 
semicolon sets up different sized zones depending on the number of digits 
in the number and whether it is in scientific notation. Here is the pro- 
gram from p. 8 again. First we run it. Then we insert a line which 
replaces the comma print delimiters with semicolon delimiters. And we call 
for another RUN. 
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10 LET A=98781. 

20 LET Al=8976 

30 LET P = A*A1 

40 PRINT A, "*"» Al ,"=", P 

50 END 

RUN 

98781. * 8976 = 8.86658E+08 

D3NE 

41 PRINT A> "*••; Al I ••=••; P 

RUN 

98781. * 8976 = 8.86658E+08 

98781. * 8976 = 8.86658E+08 

D0NE 

The output of this program is much more closely spaced. Notice that in the last 
line of the printing there is a space between the ° and 8976. The computer 
leaves a space there for a + sign but does not print it, If the number printed 
were negative, then there would be a minus sign printed in that space. The 
same holds true for the space between the = and 8.86658E + 08. Also notice 
that in all program runs there is a space before the first number printed in any 
line if the number is positive. However, if we write 10 PRINT "3" in a pro- 
gram, then when we run the program, 3 will be printed in the very first 
space. This is because the computer treats things in quotes differently from 
the values of variables for printing purposes. 



SUMMARY OF CHAP. 1 

1) We now have the PRINT statement which puts results in readable form. 
It may be used for titles, headings, and labels. 

2) Everything in quotes will be printed just as you type it (except more 
quotes). 

3) Commas or semicolons may be used between the different items to be 
printed to control spacing. 

4) The READ statement is used to read data. Several variables may be 
read with a single READ statement by separating them with commas, or they 
may be read with different READ statements. Just be sure the data is in 
propel' order to match the READ variables. 

5) The DATA statement supplies data for the READ statements. Discrete 
items of data must be separated with commas. 

6) The LET statement may be used to assign any value or any algebraic 
expression to any variable. 

7) The INPUT statement allows the operator to enter data from the key- 
board in response to a question mark. 
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8) The G0T0 statement is used to alter the progress of the computer 
during the execution of a program. 

9) The END statement may or may not be required. If required, it must 
carry the highest line number in the program. 

10) The system commands to date are RUN and SCR or CLE. System com- 
mands must not be preceded by line numbers. 



PROBLEMS FOR CHAP. 1° 

1\ Define the following items: BASIC, PRINT, END, READ-DATA, LET, RUN, 
G£5T£), statement, system command, program, remote terminal, comma delimiter, 
semicolon delimiter, scientific notation, initialize, and print zone. 

2) What is the greatest number of variables permissible in a single BASIC pro- 
gram thus far? 

3) Which of the following are valid BASIC variables? A, XI, IB, XA, Y12. 

4) The statement was made in Chap. 1 that you cannot have the computer print 
quotes by putting quotes inside quotes. Why not? 

5) Write a program to add 2081, 682, 1161, and 72.03. 

6) Write a program to add 1E6 and IE — 3. Comment on the result. 

7) Have the computer multiply 2E3 by IE — 1. 

8) Have the computer print a decimal value for -,{;. 

9) Modify the purchase program on p. 9 to total the number of items. 

10) Write a program that will print the sum of the first 10 counting numbers. 
Put the numbers in as data. 

11) Write a program that will print the product of the first 10 counting numbers. 
/ 12) Write a program that will multiply two binomials. In other words, for 
(Ax + B)(Cx + D), you will put in data in groups of four numbers (A, B, C, D), and 
you want the computer to write out the three numbers that are coefficients in the 
product. 

■J 13) Have the computer print products of fractions by putting the numerators 
and denominators in as data and printing the numerator and denominator of the 
product as two numbers. 
■J 14) Do the same for adding fractions as in problem 13). 

15) Have the computer print all possible arrangements of three digits using each 
once. Assign the digits in a DATA line and use semicolon spacing. 

16) Write programs to print decimal values for the following: 



(a) 


1/2+1/3 
1/3 — 1/4 




(b) 


2/3 3/4 
5/6 2/3 








(c) 


/ 1/2 + 3/7 \ / 


i 43 _ 3^ \ 
5 




v 11/4 / 


(d) 


(23.481 — 7.098) 4 
4.98« - 87.82 





Check marks (/) in front of problem numbers indicate the more difficult problems. 



CHAPTER 2 



riling a Proan 



2-1 PLANNING 

In Chap. 1 we looked at some programs and tried to analyze them, but 
we did not really go into the development of the programs themselves. Pro- 
grams do not just happen, they do not appear whole. They are planned and 
developed with some considerable care. There are two important tools that we 
will be using to help us write programs. One is a new BASIC statement type, 
the REM statement. The other is flowcharting. 

2-2 REM 

XXX REM (REMark), where XXX is a line number in a BASIC program, 
notifies the computer that what follows is to be ignored during the RUN of 
the program. This means that you may write any message you like following 
REM. None of what you type has any effect on the execution of the pro- 
gram, but you may comment or remark upon the function of a particular 
line or a group of lines or the entire program. 



REM 


Permits the programmer to remark or comment in the body of his 


program. 


EXAMPLE 


118 REM THE NEXT THREE LINES PRINT THE FIRST SUM. 


9 REM THIS PR0GRAM ADDS PAIRS 0F NUMBERS. 



2-3 FLOWCHARTING 

Flowcharting, or block diagramming as it is sometimes called, is useful in 
planning programs in any computer language or for that matter in planning 
the solving of any problem, whether or not you are using a computer. We 

13 



14 Basic BASIC 



introduce flowcharting by an example. Suppose we want to add the counting 
. ,...,i r i »._ ern .•„„!..,]:„„ i „„J un w„ .,,,11 ,^or1 f„rr, wr,,-ioV>loc- «no 

for counting and the other to keep track of the sum. We want to start the 
counting variable at 1 and the summing variable at 0. Then for every value 
of the counting variable we want to add the counting variable to the old 
value of the summing variable to get a new value of the summing variable. 
Figure 2-1 represents a rough flowchart for such a process. 

Figure 2-1 attempts to break the problem into its most fundamental steps. 
By using a diagram of this kind, we are able to show the direction we must 
follow to do the problem. We would like to have each step small enough for 
the computer to handle with one BASIC statement. However, this will not 
always be practical. In our example, though, it will be both practical and 
reasonable to have each step be a BASIC statement. With that in mind we 
redraw the diagram using statements more nearly like those in BASIC lan- 
guage. At the same time we will introduce the more standard practice of 
having different shapes for boxes that indicate different kinds of functions. 
The shapes used for this example are listed in Fig. 2-2 and the new flow- 
chart is Fig. 2-3(A). 

This time we are very close to being able to write the program directly 
from the flowchart. Of the statements in Fig. 2-3(A), the only one for which 
we do not yet have a corresponding BASIC language statement is decision- 
making. BASIC has a statement type that allows us to alter the path of the 
computer through a program depending on whether an algebraic sentence is 
true or false. 



Start 



Start counting variable 
Cat1 



Start summing variable 
SatO 



**n^|p^*' 



Add summing variable 
and counting variable 



Have we done 
all 50? 



yes 



Print sum 



Add 1 to 
counting 
variable 



Finish 



Fig. 2-1. Diagram for adding counting numbers from 1 to 50. 
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Terminal 



Used for beginning and 
ending of programs. 



Operation 



Indicates that a computation 
is to be performed. 




Shows that a question is being asked 
and a decision is being made. 



/ / 


Indicates that results are 


/ PRINT / 


to be printed and will also 


/ READ / 


be used to indicate the 


/ / 


READ statement. 







Small circle shows that we are 
going to transfer to another 
statement in the program. N 
will match another small circle 
in the same chart. 



Arrowheads will indicate direction in all cases. 



Fig. 2-2. First five shapes 
used for flowcharting. 



2-4 IF-THEN 

XXX IF Z = Q THEN 230 means that if Z does equal Q, then the next 
line to be executed is line number 230. If Z does not equal Q, then the com- 
puter is directed to simply execute the line with the next number after XXX. 

The equals sign appears in the IF-THEN statement. Used here the equals 
sign is clearly not the assignment operator we defined earlier. In the IF-THEN 
statement the equals sign specifies a required relation (mathematical equality) 
to exist between two numbers. Therefore, the equals sign is now designated as 
a relational operator. 

With the IF-THEN statement added to our growing list of BASIC state- 
ments, we should be able to write the program directly from the flowchart. See 
Fig. 2-3(B). If we simply copy the program in Fig. 2-3(B) and run it, it looks 
like the program below. 



70 



10 


LET C=l 


20 


LET S=0 


30 


LET S=S+C 


40 


IE C=50 THEM 


50 


LET C=C+1 


60 


G0T3 30 


70 


PRIMT S 


80 


EM0 


RUM 





1275 
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10 LETC = 1 



20 LETS = 



30 LET S = S + C 



40 IF C = 50 THEN 70 



50 LET C = C + 1 

60 G0T03O 

70 PRINTS 
80 END 



(A) 



(B) 



Fig. 2-3. (A) Flowchart for adding counting numbers 1 to 50. (B) Pro- 
gram written from flowchart. 



BASIC allows us to give programs names, This requires a system com- 
mand and will vary with the system tied in with your terminal. Some systems 
use the command NAME-, while others use NAME without the hyphen. After 
the system command, you type the name to be used. Being able to name pro- 
grams will be helpful to us here as we will be able to refer to programs by 
name from now on. 

We will give the last program a name, insert some BEM statements to 
explain the function of certain lines, and add a label to make the printed 
result clearer. It is always recommended that you write programs with the 
thought that someone else will be reading them and you may not be there to 
do the explaining. You may even find that you cannot understand your own 
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3 HEM THE EXECUTIVE PR0GRAM ALL0 WS US T0 GIVE 0UR PR0 GRAM A 

NAME 
b REM THE RESTRICTI0NS 3M NAMES VARY FR3M SYSTEM T0 SYSTEM 

8 HEM ***** 

9 HEM WE AHE ADDING INTEGERS 0NE THR0UGH 50 IN THIS PR0GRAM 

10 LET C=l 
20 LET S=0 
30 LET S = S+C 

38 HEM HAVE WE ADDED 50 (THE LAST NUMBER T0 BE ADDED) YET? 

40 IF C=50 THEN 70 

48 KEM WE HAVEN'T ADDED 50 YET *** S0 WE ADD 0NE 

50 LET = 1 

60 G0T0 30 

68 REM WHEN C= 50 WE PRINT S (THE SUM) IN LINE 70 

70 PRINT S 

80 END 

RUN 

SUM1 

12 75 

D0NE 

70 PRINT "THE SUM 0F THE INTEGERS FR0M 0NE T0 FIFTY I S"; S 

RUN 

SUM1 

THE SUM 0F THE INTEGERS FR0M 0NE T0 FIFTY IS 1275 

D0NE 



programs several weeks after you write them, unless they have good REM 
statements. See SUM1. 

Let us do another program, similar to SUM1, where we will add all the 
odd integers from 5 through 1191. This time instead of starting the counting 
variable at 1, we will have to start it at 5. Since we are only interested in 
odd numbers, we will have to add 2 instead of 1 each time we add the new 
number to the summing variable. We will test N (the number added) each 
time through the summing step to decide whether we have reached the 
desired number, in this case 1191. First we draw the flowchart in Fig. 2-4. 
This flowchart is very much like the one in Fig. 2-3(A). See SUM2. Again, of 



SUM 2 

10 LET N=5 

20 LET S=0 

28 REM LINE 30 ADDS THE NEW NUMBER T0 THE SUMMING VARIARLF. 

30 LET S=S+N 

40 IF N=l 19 1 THEN 70 

48 REM ADD 2 IN LINE 50 F0R 0DD NUMBERS 

50 LET N=N+2 

60 G0T0 30 

70 PRINT "SUM OF 0DD NUMBERS FROM 5 T0 119 1 IS";S 

80 END 

HUN 

SUM2 

SUM 0F 0DD NUMBERS FROM 5 T0 1191 IS 355212. 

DONE 
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r 



J 



LET N = 5 



•" ^j jj ff^ | 



LET S = 



LET S = S + I 




N f-Q 



LET N = N + 2 



6 



yes 



PRINT S 



f END J 



Fig. 2-4. Flowchart for adding 
odd integers from 5 to 1 191 



course, we use the IF-THEN statement, because we have to decide each time 
we add 2 whether or not we have reached 1191. 

The IF-THEN instruction is called a conditional transfer. Unless instructed 
otherwise, the computer executes the statements of the program in numerical 
order. The IF-THEN statement allows us to tell the computer to alter that 
order of execution on the condition that an algebraic sentence is true. If the 
algebraic sentence is false, then the computer passes to the next line in 
sequence. On the other hand, the G0T0 statement is an unconditional transfer. 



IF-THEN 

XXX TF YYYYYY THEN ZZZ. If YYYYYY is true, transfer to line 
ZZZ. If YYYYYY is false, pass to the next line after XXX. 
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You may have more than one conditional transfer in the same place in a 
program. This would be necessary if you wanted to test for several conditions. 
Suppose in SUM2 you want to see the sum several times during the RUN. 
Let us look at the sum for the first two, for N = 731, and the last two. 

First we should draw a new flowchart. It is clear from the flowchart that we 
have to decide each time we print the sum whether or not we have finished 
or have to add 2 and take the sum again. See Fig. 2-5 and SUM3. 

Note that we test N for three relations: 1) "less than 9," 2) "equals 731," 
and 3) "greater than 1188." We have already seen the equals sign used as a 
relational operator. The two new relational operators "less than" (<) and 
"greater' than" (>) are introduced here. 



c 


Start 


) 






LETN = 


5 






LETS = 







LET S = S + N 



KD 




Fig. 2-5. Flowchart for changing program SUM2 so that 
the sum is printed several times during the program. 
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SUM3 



5 

6 

7 

10 

20 

28 

JO 

40 

50 

60 

68 

70 

BU 

90 

100 

110 

RUN 

SUM3 



PRINT "SUM 0F 0DD" 
PRINT "iMUMBERS FR0M" 
PRINT "FIVE T0"»"IS" 

LET N=5 

LET S=0 

REM LINE 30 AODS THE NEW NUMBER T0 THE SUMMING VARIABLE. 



LET S=S+N 
IF N<9 THEN 90 
IF N=731 THEN 90 
IF N>1188 THEN 90 
»rw Ann 2 

LET N=N+2 

(M IB 30 

PRINT N,S 
IF N<1191 THEN 
END 



IN LINE 70 F0R 0DD NUMBERS 



70 



SUM 0F 0DD 
NUMBERS FR0M 
FIVE T0 

5 

7 

731 

1189 

1191 



IS 
5 

12 

133952. 
354021. 
355212. 



D3NE 



Other relational operators are "less than or equal to" (< =), "greater than 
or equal to" (> =), and "not equal to" (< >). Some time-sharing systems 
require a set of alphabetic relational operators (such as EQ for =) instead of 
the symbols listed above. 

Some facts about flowcharts should be becoming clearer. Arrowheads along 
connecting lines show the direction the computer is to follow. Rectangles and 
parallelograms have only one exit arrow, but they may have more than one 
entrance arrow. Diamonds have two exit arrows. Can diamonds have more 
than one entrance arrow? 

We said previously that we did not know how to eliminate some of the print- 
ing in the .SUBT0TAL column. Look at the purchase program on p. 9 again. 
We had no way of preventing the computer from running out of data. Now we 
can simply tack on some artificial data at the end of the DATA line, which 
could not possibly be data in the problem, and use the conditional transfer to 
test each time data is read to see if the computer has read the artificial data. If 
the computer has read the artificial data, then we do not want to use it; but we 
have a signal for the computer that it is time to print the total and terminate 
the run without reading any more data. Artificial data used in this way is 
called dummy data. If we are talking about prices and numbers of items, we 
can use or negative numbers for dummy data. Let us use for the number 
of items and for the price and name the program T0TAL. See the flowchart 
In Fig. 2-6. 
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( 


Start 


) 


"*mr 


LET T = 


-**»- 




PRINT 
T 



LETT 

:T+N*P 



( END J 



Fig. 2-6. Flowchart for using dummy data in program T0TAL. 



TOTAL 



10 

20 

21 

25 

30 

34 

40 

42 

AS 

70 

RUN 

T0TAL 



REM THIS PR0GRAM IS A M0DIFICATI0N 0F A PR0GRAM THAT WE DID 
BEF3RE. 

PRINT "T0rAL C0ST = $"; 

DATA 2, .3 5, 3,2. 65, 1 1, .2 5, 1,9.49. 35. 1. 59,0,0 
KEM THE DUMMY DATA IN THIS DATA LINE IS t,t 
LET T=0 
HEAD N,P 
IF N = THEN AS 
LET T=T+N*P 
G3T0 30 
PRINT T 
END 



T0TAL C0ST =S 76. 54 
D0NE 

Look at lines 10 and 45 and then look at the printed result. These two 
PRINT instructions are executed on the same printed line. This is accomplished 
by using the semicolon at the end of the PRINT instruction in line 10. The 
semicolon there tells the computer to wait after printing the $ until it executes 
the next PRINT instruction in the program and to print that on the same line 
right after the $. Again there is a single space for the plus sign which is not 
printed. If the number were negative, there would be a minus sign there. 
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SUMMARY OF CHAP. 2 



1) We are now able to remark about a program right in the program 
itself by using REM. You should use REM statements so that whoever reads 
your program can determine what they are intended to do. It will also help 
you to remember your own programs weeks or months later when you your- 
self have forgotten what they will do. 

2) Flowcharting will prove a very valuable process that we will use to 
develop programs to solve problems. 

3) The abilit" to have the cormuter make decisions usiri" IF— THEN, and 
net according to the outcome of the decisions greatly increases the complexity 
of the problems we may solve by computer. 

4) We now distinguish between conditional and unconditional transfer 
statements, 

5) Dummy data may be used to gain a greater control over what we can 
ask the computer to do after it has read the last item of data. 

PROBLEMS FOR CHAP. 2 

Unless instructed otherwise, draw a flowchart for every problem that calls for 
a computer program to be written. Also use REM liberally. 

1) Write a short description of each of the following terms: flowchart, dummy 
data, IF-THEN, REM, conditional transfer, unconditional transfer. 

2) In the program T0TAL, why did we use two O's for dummy data? Why 
couldn't we have used just one since line 34 only tests to see if N = 0? 

3) Bill took four tests. His marks were 100, 86, 71, and 92, What was his average 
score? 

4) Modify the program SUM2 to count the number of odd numbers from 5 to 
1191 by first modifying the flowchart. 

5) Three pairs of numbers follow in which the first number is the base and the 
second number is the altitude of a triangle: 10, 21; 12.5, 8; 289, 114. Write a 
program to print in good form the base, the altitude, and the area for the three 
triangles. 

6) Find the number of and the sum of all positive integers greater than 1000 
and less than 2213 divisible by 11. 

7) A man is paid 1(S the first day un the job, 20 the second day, 4(i the third day, 
and so on, doubling each day on the job for 30 days. You are to calculate his wages 
on the 30th day and his total for the 30 days 

8) Write a program to print the integers from 1 to 25 paired with their reciprocals. 

9) Write a program to print the integers from 75 to 100 paired with their 
reciprocals, 

10) Rewrite the program T0TAL to count the number of different items in the 
order and print the total. 

11) A customer put in an order for four books which retail at $5.95 and carry a 
25% discount, three records at $3.98 with a 15% discount, and one record player for 
$39.95 on which there is no discount, in addition, there is a 2% discount aiiowed 
on the total order for prompt payment. Write a program to compute the amount 
of the order. 

12) Write a program to balance a checkbook that includes the following transac- 
tions: Sept. 2, deposit $9.00; Sept. 5, write a cheek for $3.24; Sept. 10, write a 
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check for $1.98; and Sept. 17, write a check for $3.85. Assume that the balance was 
$14 23 on Sept. 1. Have the computer print the balance after each transaction. 

13) Write a program to find the amount of $100.00 deposited for one year in a 
savings account at 4% per year compounded four times yearly. 

J 14) In the song "The 12 Days of Christmas," gifts are bestowed upon the singer 
in the following pattern: the first day she received a partridge in a pear tree; the 
second day two turtle doves and a partridge in a pear tree; the third day three 
french hens, two turtle doves, and a partridge in a pear tree. This continues for 12 
days. On the 12th day she received 12 + 11 + --- + 2+1 gifts. How many gifts 
were there all together? 

■J 15) For problem 14) have the computer print the number of gifts on each of the 
12 days and the total up to that day. 

/ 16) George had test scores of 83, 91, 97, 100, and 89. Write a program to com- 
pute his average. Have the computer count how many tests George took. 
7 17) Write a program that will take more than one set of test scores, find the 
average for each set, and print the result before going back to read the next set of 
scores. 
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3-1 INTRODUCTION TO MACHINE-MADE LOOPS 

A computer loop may be defined as a self-repeating sequence of program 
statements. This being true, loops are not new to us. Most of the programs 
we wrote in Chap. 2 used a loop. In those programs we initialized a variable 
with the idea that we would be adding a fixed number repeatedly and doing 
something each time we added the fixed number. Let us draw a flowchart and 
write a program to simply print the integers 1 through 6. See L00P1 and 
Fig. 3-1. 



f Start 








LET X = 1 




10 LETX=1 


/ ^ / 

/ PRINT X yt 








20 PRINT X- 


no 








/^ Does \^ 
\X = &./ 

lyes 








\ 


LET X = X + 1 


30 IFX = 6THEN99 




r 


40 LET X = X + 1 
50 C0T02O 








( END 




99 END 



Fig. 3-1. Flowchart for L00P1 for printing six integers. 
24 
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L00P1 



10 
20 


LET X=l 
PRINT x; 




30 


IF X=6 THEN 


99 


40 


LET X = X+1 




50 


G0T0 20 




99 


END 




RUN 






L00P1 





In L00P1 we first print the number and then test to see if we have printed 
the last number in the sequence. If we have, then we stop. If we have not 
printed the last number, then we add 1 and print the new number. The 
results we obtain are entirely equivalent to the results we would get when we 
test to see if the number we are about to print is too great before we print it. 
If it is not too great, then we print it. If it is too great, then we stop. Consider 
the flowchart of Fig. 3-2 and L00P2. 



( 


Start 


) 


^ 




LETX = 


1 










Fig. 3-2. Flowchart for L00P2 for testing X before it is printed. 



L00P2 



10 


LET X 


= 1 




20 


IF X> 


6 THEN 


99 


30 


PKINT 


x; 




40 


LET X 


= X+ 1 




50 


G0T0 


20 




99 


END 






RUN 








L00P2 







D0NE 
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F0R-NEXT 

Loops are used so routinely in programming that BASIC provides a 
machine-made loop. Program L00P3 is the machine equivalent of our pro- 
gram L00P2. 

Notice that the two statements 10 F0R X = 1 T0 6 and 50 NEXT X in 
L00P3 do the work of the four statements 10, 20, 40, and 50 in L00P2, 
F0R X = 1 T0 6 indicates doing everything between this statement and 
NEXT X, beginning with X =' 1 and ending with X = 6. NEXT X tells the 
computer to add 1 to this old value of X and "o to the be^innin 0- of the loo 1 "* 
again. When X = 6. L00P3 prints 6. After it prints 6, line 50 says NEXT X. 
This means, add 1 and go to the beginning of the loop. At this point in the 
RUN the value of X is 7, not 6 as you might think. Since 7 is greater than 6, 
the F0R-NEXT combination instructs the computer to execute the next 
instruction after NEXT X, which in program L00P3 is END. 

L00P3 



10 


F0R X=l 


T0 


6 


30 


PRINT XJ 






50 


NEXT X 






99 


END 






RUN 








L00P3 







DONE 

A machine loop does not have to begin with 1. It may begin wherever you 
require. The variable that is incremented in the machine loop may be treated 
in the same way as other variables in the program. However, you are warned 
against changing the value of that variable. L00P3+, which is a modification 
of L00P3, prints the values of X, 2 ° X, X - 10, X °° 3, and X/(-3). 



L00P3+ 



5 PRINT " 


'X 


2*X X 


-10 Xt3 


10 F0R X= 


1 


T0 6 






30 PRINT 


X! 


I 2*X." X- 


-103X* 


3J X/C-3) 


50 NEXT X 










99 END 










RUN 










L00P3+ 










X 2*X 




X-IO 


X»3 


X/C-3) 


1 2 




-9 


1 


-• 333333 


2 A 




-8 


8 


-. 666667 


3 6 




-7 


27 


- 1 


A 8 




-6 


64 


-1 • 33333 


5 10 




-5 


125 


-1.66667 


6 12 




-A 


216 


-2 



X/C-3)" 



D0NE 



Notice lines 80, 100, 150, 220, 240, and 310 in program LUPDEM, They 
are all of the form XXX PRINT. This statement is sometimes called the 
blank PRINT. It has the effect of directing the computer to turn up a new 
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line of paper at the terminal. In some cases, XXX PRINT serves to begin a 
new line; in others, XXX PRINT results in a space between lines of printed 
output. 

LUPDEM 

10 REM **THIS PROGRAM IS INTENDED T0 DEMONSTRATE SOME 0F 

20 REM **THE CAPABILITIES 0F THE F0R-NEXT STATEMENT PAIR 

30 REM 

40 PRINT "50 FOR X= 1 4 TO 20 PRODUCES THE FOLLOWING VALUES FOR X" 

50 FOR X=14 TO 20 

60 PRINT XJ 

70 NEXT X 

80 PRINT 

90 REM BASIC ALLOWS US T0 INCREMENT A L00P BY VALUES OTHER THAN ONE 

100 PRINT 

110 PRINT "120 FOR X= 1 TO 19 STEP 2 PRODUCES!" 

120 FOR X=l T0 19 STEP 2 

130 PRINT XJ 

140 NEXT X 

ISO PRINT 

160 REM THE STEP NEED NOT INCREASE THE VALUE OF X 

170 PRINT 

180 PRINT "190 FOR X=345 TO 282 STEP -9 GI VESJ " 

190 FOR X=345 TO 282 STEP -9 

200 PRINT XJ 

210 NEXT X 

220 PRINT 

230 REM DECIMALS ARE ALLOWED IN BASIC 

240 PRINT 

250 PRINT "260 FOR X=9 1 . 5 TO 3 STEP -15.7 YIELDS!" 

260 FOR X=91.5 TO 3 STEP -15.7 

270 PRINT XJ 

280 NEXT X 

300 REM VARIABLES MAY BE USED TO SET UP A MACHINE L00P IN BASIC 

310 PRINT 

320 PRINT "330 LET A=5, 340 LET B=45, 350 LET C= 6 AND" 

325 PRINT "360 FOR V=A TO B STEP C GIVES THESE RESU.TSJ" 

330 LET A=5 

340 LET B=45 

350 LET C=6 

360 FOR V=A TO B STEP C 

370 PRINT VJ 

380 NEXT V 

390 END 

RUM 
LUPDEM 

50 FOR X=14 TO 20 PRODUCES THE FOLLOWING VALUES FOR X 
14 15 16 17 18 19 20 

120 FOR X=l TO 19 STEP 2 PR0DUCESJ 
1 3 5 7 9 11 13 15 17 19 

190 FOR X=345 TO 282 STEP -9 GI VESJ 
345 336 327 318 309 300 291 282 

260 FOR X=91.5 TO 3 STEP -15.7 YIELDSJ 
91.5 75.8 60.1 44.4 28.7 13. 

330 LET A=S, 340 LET B=45, 350 LET C= 6 AND 

360 FOR V=A TO B STEP C GIVES THESE RESULTSJ 

5 11 17 23 29 35 41 

DONE 
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F0R-NEXT 

F0R X = A T0 B STEP C sets up a machine loop with first num- 
ber A, last number B, and increment C. See LUPDEM for detail. 



Now we will look again at some of the programs in Chap. 2 and do them 
with a F0R-NEXT loop. Let us redo program SUM3 and call it SUM3+. 
Of course as we should expect, the printed results for SUM3+ are identical 
with those of SUM3. See the flowchart in Fig. 3-3. 



C^Z) 



PRINT 
headings 



Fig. 3-3. Flowchart for using machine loop for 
program SUM3 from Chap. 2. 



LET S = 



F0R N = 5 T0 
1191 STEP 2 



*w* 



LET S = S + N 




yes 




NEXT N 



^^^ 



( END J 
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SUM 3+ 



A REM THIS PR0GRAM IS A MODIFICATION OF SUM3 FR0M CHAPTER TW0 

5 PRINT "SUM 0F 0DD" 

6 PRINT "NUMBERS FROM" 

7 PRINT "FIVE T0","IS" 
10 LET S=0 

20 F0R N=5 T0 1191 STEP 2 

28 REM LINE 30 ADDS THE NEW NUMBER T0 THE SUMMING VARIABLE. 

30 LET S=S+N 

40 IF N<9 THEN 90 

50 IF N=731 THEN 90 

60 IF N< 11 88 THEN 100 

90 PRINT N. S 

100 NEXT N 

110 END 

RUN 

SUM3+ 

SUM 0F 0DD 
NUMBERS FR0M 

FIVE T0 IS 

5 5 

7 12 

731 133952. 

1189 354021. 

1191 355212. 

D0NE 

F0R-NEXT may be used to count the number of times the computer does 
a particular operation or a set of operations. For instance, we can use a 
machine loop to count the number of different items in program T0TAL of 
Chap. 2 and at the same time instruct the computer to read data repeatedly. 
We did not know how many items of data there were, but that does not 
matter. We can simply pick a number that we are sure is greater than the 
number of times we want the computer to read data. There could not possibly 
be more than say 50 items. 

So in T0TAL+ we can use F0R X = 1 T0 50. Then we can test for the 
dummy data each time data is read, using the conditional transfer to get the 
data out of the loop and to print the results, when N is 0. 

T0TAL + 

5 REM THIS PROGRAM IS A MODIFICATION 0F A PR0GRAM THAT WE DID 
BEF0RE 

20 DATA 2.. 35,3.2. 65, 1 1. .25, 1,9.49, 35, 1.59,0.0 

21 REM THE DUMMY DATA IN THIS DATA LINE IS t.r 
25 LET T=0 

2 7 F0R X=l T0 50 

30 READ N.P 

34 IF N = THEN 45 

40 LET T=T+N*P 

42 NEXT X 

45 PRINT "T0TAL C0ST = £"1 T; "THERE ARE"! X- 1 J "DI FFERENT ITEMS" 

70 END 

RUN 

TOTAL* 

T0TAL C0ST = I 76.54 THERE ARE 5 DIFFERENT ITEMS 

D0NE 
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Look carefully at line 45 in T0TAL+. This line gives the printing instruc- 
tions. The counting loop calls for X to go from 1 to 50, but line 45 says print 
X — 1. Since X counts the number of times the READ statement is executed, 
1 is added even when the dummy data is read; but we do not want to count 
the dummy data. So we have to tell the computer to subtract 1. An alterna- 
tive method would be to use F0R X = T0 50. Then we could call for 
printing the value of X. 

The same loop may be used several times in the same program. Every time 
the computer executes the F0R statement, the limits on the incremented 
variable are reestablishd. Su^^ose in a a rouT? of five ^eonle each ^erson took 
six- tests. And we want to read their scores and find the average for each 
person. We can set up a loop F0R X = 1 T0 6 and use this repeatedly until 
the computer runs out of data. The flowchart appears in Fig. 3-4 and we call 
the program AVG. Note that the flowchart of Fig. 3-4 contains no END box. 
This is because the computer runs out of data in the READ statement and 
termination is automatic. Notice in the program that each score is printed as it 
is read. This is one way of keeping track of whose average is being printed on 
each line in the printed results. Also note that each line of data is devoted to 
the scores for one person. This makes it easy to organize the typing of data. 



Start 



Set total 
atO 



I 



KD 



READ loop 
F0R X = 1 T0 6 



READS 
(scores) 



PRINT 
S 



NEXT X 



PRINT 
average 



Add scores 
LET T = T + S 



Fig. 3-4. Flowchart for averaging test 
scores for several people. 



Loops and Lists 31 



AVG 



10 


LET T=0 








20 


F0R X=l T0 6 








30 


READ S 








35 


PRINT SJ 








40 


LET T=T+S 








50 


NEXT X 








60 


PRINT "AVG="JT/6 








68 


REM WE SEND THE COMPUTER 
AGAIN 


BACK 


T0 LINE 


10 T0 SET T AT ZER0 


70 


G0T0 10 








80 


DATA 65.68.73,85,82.8 7 








88 


DATA 74,8 7.90.88.8 7.88 








84 


DATA 88.9 7.9 1.92.90.89 








86 


DATA 91,83,78.89.79,8 7 








88 


DATA 65,76.67.50,60,66 








100 


END 








RUN 










AVG 










65 


68 73 85 82 


87 


AVG= 76. 


6667 


74 


87 90 88 87 


88 


AVG= 85. 


6667 


88 


97 91 92 90 


89 


AVG= 91. 


1667 


91 


83 78 89 79 


87 


AVG= 84. 


5 


65 


76 67 50 60 


66 


AVG= 64 





0UT 0F DATA IN LINE 30 

SUMMARY 

We see that it is not necessary for us to construct repetitive operations. 
This may be done automatically with the F0R-NEXT statement pair in BASIC. 

PROBLEMS FOR SEC. 3-1 

Draw flowcharts for all programs unless instructed otherwise. 

1) Add the counting numbers from 1 to 50 using F0R-NEXT. 

2) Do problem 6) in Chap. 2 using a machine loop. 

3) Do problem 7) in Chap. 2 with F0R-NEXT. 

4) Do problem 8) in Chap. 2 using a machine loop. 

5) Do problem 9) in Chap. 2 with F0R-NEXT. 

6) Find the sum of the reciprocals of all the integers from 1 to 1000. 

7) Find the sum of the reciprocals of the integers from 900 to 1000. Compare 
this number with the result of problem 6). 

8) Do problem 13) in Chap. 2 using a machine loop. 

9) Find the sum of the squares of the reciprocals of the integers from 1 to 1000. 

10) If you were given $1.00 today, $2.00 tomorrow, $3.00 the next day, and so 
on for 12 days, how many dollars would you have been given? Suppose this went on 
for 30 days. Then how much? Compare this with problem 3). 

3-2 MORE ON LOOPS 

In program AVG in Sec. 3-1, we went through the read and sum loop five 
times, once for each person's test data. When we have the computer do the 
same set of operations five times, we are actually using a loop. So let us 
rewrite AVG with a loop F0R P = 1 T0 5 and call it AVGCNG. 
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AVGCNG 










5 1 


F0R P=l T0 5 










10 


LET r=o 










20 


F0R X=l T0 6 










30 


READ S 










35 


PRINT S» 










40 


LET T=T+S 










50 


NEXT X 










60 


PRINT "AVG="J T/6 










70 


NEXT P 










80 


DATA 65.68.73*8 5.82.8 7 










82 


DATA 74» 8 7. 90.88.8 7*88 










o4 


On in 88. 9 7. 91.92. 90.89 










86 


DATA 91.83.78.89.79.8 7 










88 


DATA 65.76.67.50.60.66 










100 


END 










RUN 












AVGCNG 










65 


68 73 85 82 


87 


AVG= 


76. 


6667 


74 


87 90 88 87 


83 


AVG= 


85. 


6667 


88 


97 91 92 90 


89 


AVG= 


91. 


1667 


91 


83 78 89 79 


87 


AVG= 


84. 


5 


65 


76 67 50 60 


66 


AVG= 


64 
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Notice that the X loop is entirely within the P loop. Loops written in this 
way are called nested loops. They occur often in programming. Loops may be 
nested to almost any number you may require, but the loops must be com- 
pleted from within. The F0R statements and the NEXT statements must be 
paired. Legal and nonlegal combinations are shown below. 



Legal 



Illegal 



F0R A=l 


T0 8 


F0R B=2 


T0 7 


F0R C=2. 


3 T0 


NEXT C 




F0R 0=A 


T0 B 


NEXT D 




NEXT B 




NEXT A 





F0R A=l T0 8 
F0H B=2 T0 7 
6. 1 F0R C=2.3 T0 6. 1 

NEXT A 
NEXT C 
F0R D=A T0 B 
NEXT D 
MEXT B 

Suppose we want to calculate compound interest on $2000 at 4% com- 
pounded quarterly for nine years. When you take your savings account book 
to the bank after the first of the year, it calculates the interest four times at 
1% each time. In nine years you take the book to the bank nine times. This is 
an ideal example for nested loops. One loop goes from 1 to 9, with a loop 
inside going from 1 to 4. This provides a good computer model for the actual 
problem. As the program is written, it is a simple matter to have the principal 
printed at the end of each year. A line may be inserted between 50 and 60 
to print trie ainouiil afler each year. The program couid also have been written 
using F0R X = .25 T0 9 STEP .25, or even F0R X = 1971.25 T0 1980 
STEP .25. If you want to be able to do several problems at several interest 
rates, then substitute a variable, which may be assigned as data, for .01 in 
line 40. See CMPINT and Fig. 3-5. 



Start 
31 



LET P = 2000 



PRINT 
amount 



31 



END 



F0RY=1 
T0 9 



NEXT Y 
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F0R Q = 1 
T0 4 



3Z 



Compute 
interest 



^ 



Add 
interest to 
principal 



I 



NEXTQ 



Fig. 3-5. Flowchart for finding the compound amount of $2000 after 
nine years compounded quarterly. 



CMPINT 

8 REM STAKT THE PRINCIPAL P AT 12000 

10 LET P=2000 

18 REM G0 FOR 9 YEARS 

20 F0R Y=I TO 9 

28 REM GO FOUR QUARTERS EACH YEAR 

30 FOR Q=l TO 4 

38 REM COMPUTE THE INTEREST FOR THIS QUARTER 

40 LET I=.01*P' 

48 REM ADD THE INTEREST T0 THE PRINCIPAL 

50 LET P=P+I 

52 HEM *** WE CCULD HAVE USED LET P=P+.0I*P HERE 

60 NEXT Q 

62 REM AFTER FOUR QUARTERS THE C3MPUTER 6FTS TO NEAT Y 

70 NEXT Y 

80 PRINT "AFTER 9 YEARS THE AMOUNT IS I"; P 

90 END 

RUN 

CMPINT 

AFTER 9 YEARS THE AMOUNT IS I 2861.54 

DONE 

We may want to have the limits of one loop determined by the variable in 
another loop. For instance, we can print a triangle of numbers in which each 
row prints all of the counting numbers up to and including the row number. 
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We need one loop for rows and another for columns. We want the number of 
columns to go from 1 to the row number. This is accomplished by program 
TRAGL. Now you can do problem 14) in Chap. 2 very easily. (Of course you 
could do the problem before, but it took a longer program.) 



TRAQ. 



10 F0R R=l 


T0 


10 














20 F0R C=l 


ra 


R 














30 PRINT C« 


















AO NEXT C 


















so fr iter 


















60 NEXT R 


















70 END 


















RUN 
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3 
















1 2 


3 




A 












1 2 


3 




A 


5 










1 2 


3 




A 


5 


6 








1 2 


3 




A 


5 


6 


7 






1 2 


3 




A 


5 


6 


7 


8 




1 2 


3 




A 


5 


6 


7 


8 


9 


1 2 


3 




A 


5 


6 


7 


8 


9 



10 



D0NE 



SUMMARY 

Loops may be nested inside other loops as long as we see to it that opera- 
tions are done from within, much the same as we deal with sets of parentheses 
within other sets of parentheses in algebraic expressions. There may be as many 
loops within other loops as the problem may require up to a point. The limits 
of one loop may be set by the variables of other loops. Caution is urged 
against inadvertently changing the loop variable within the loop, although we 
may use its value for any purpose. 

PROBLEMS FOR SEC. 3-2 

1) In TRAGL we printed from 1 to the row number. Write a program to print 
from the row number to 10 for ten rows. 

2) Print the multiplication table up to 12 X 12. 

3) Print the addition table up to 12 -f- 12. 

4) Find the compound interest on $1000 at 5% compounded quarterly for 10 
years. Print the amount after each year with the year number. 

5) In problem 4), have the computer print the interest cumulatively each year. 

6) Print a table showing compound interests on $1000 for one, two, three, and 
four years at 4%, 4%%, 5%, and 5)5% compounded quarterly. Print year 1 through 4 at 
the top, and put the interest rate in the first column of each row. Put the rate in a 
loop F0R R = 4 TO 5.5 STEP .5. 
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7) Redo problem 14) in Chap. 2 using nested loops. 
v/ 8) Write a program to read 10 numbers from data, find the largest number, print 
it and the position it occupied in the data line. This requires only one loop, but you 
will have to read the first number directly from data outside the loop and then 
have the loop begin with 2 to read the rest of the data. (This is essentially a problem 
of storing values.) 

7 9) Write a program to print all sets of three integers less than 20 so that they 
can be the sides of a right triangle. Print no duplications, i.e., if you have the 
computer print 3, 4, 5, do not print 4, 3, 5. 

10) Write a program to print the integers 1 through 50 in order in 5 rows of 10 
columns each. 

11) Write a program to print the integers 1 through 50 in order in 10 rows of 
5 columns each. 

/ 12) Print a table of the squares of positive integers 1 through 29. Label the 
columns through 9 and the rows 0, 10, and 20. Make the entry in the table be 
the square of the sum of the row and column labels. 

13) Have the computer print the product and the sum of all possible different 
pairs of integers from 15 to 20. 



3-3 INTRODUCTION TO LISTS 

Recall that in Chap. 1 it was stated that when a program specifies a vari- 
able, the computer sets up a location with the variable as its name. This 
provides a means for the computer to store numbers for later use. You are 
about to meet a very powerful extension of that concept, the computer list. A 
computer list sets up not a single location for a variable, but many locations 
for a variable. If we use the computer for a list of say four items (we may 
have many more) and choose to call it L, the different locations of the list 
will be L[l], L[2], L[3], and L[4]. If we want the list to contain the numbers 
4, 9, -92, and 8, this could be accomplished by saying LET L[l] = 4, LET 
L[2] = 9, LET L[3] = -92, and LET L[4] = 8. The numbers in brackets 
may be thought of as subscripts and they designate at which location of the L 
list the number is being stored. However, the LET statement with explicit 
subscripts is not really any better than assigning a different variable for each 
number. So values are usually assigned in a loop with the subscript being the 
variable in the loop. In the demonstration program LIST1 we are letting S 
go from 1 to 4 and reading L[S] from data. There may be several lists in the 
same program. Any letter of the alphabet may be used to designate a list. 
At this point we are limited to 10 or 11 items in a list, depending on the 
computer. If we have 10, they are numbered 1 through 10. Some computers 
start at 0. 

As you can see from the RUN of LIST1, we may use any or all of the 
numbers in a list. We can print them forwards or backwards. We can re- 
arrange them at will. We may look at the numbers in any identifiable manner. 
Lists are incredibly useful when you learn to handle them. 

Let us use lists and loops to write all possible combinations of four digits 
in one list taken in pairs with four digits in another list. First we draw a 
flowchar t as in Fig. 3-6. We call the program PAIRS. 
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LISTl 

8 REM WE ARE READING FOUR ITEMS OF DATA WITH A L00P 

10 F0R S=l T0 4 

20 READ LCS3 

30 NEXT S 

38 PRINT "WE CAN PRINT THE ITEMS 0F THE LIST EXPLICITLY" 

40 PRINT "LCU LC23 LC 3] LI4I" 

50 PRINT LC I3JLC23JLC33JLC43 

60 PRINT 

70 PRINT "WE CAN ALS0 USE A LOOP. THE L0NGER THE LIST THE 

BETTER" 
80 PRINT "BEING ABLE T0 USE A L00P IS" 

100 PRINT LCX3I 

120 NEXT X 

130 PRINT 

135 PRINT 

140 PRINT "WE CAN 0PERATE 0N THE NUMBERS IN THE LIST" 

145 PRINT " B LCB3 B*LCB3" 

150 F0R B=l T0 4 

155 PRINT BJLCB3>B*LCB3 

160 NEXT B 

170 PRINT 

180 PRINT "WE CAN PRINT THE LIST BACKWARDS WITH FOR X=4 T0 1 

STEP -1" 

190 F0R X=4 T0 1 STEP -1 

200 PRINT LCX3I 

210 NEXT X 

220 PRINT 

225 PRINT 

230 PRINT "WE CAN RELOCATE ITEMS IN THE LIST" 

240 PRINT "250 LET Z=L£ 1 3. 260 LET LC13=LC23 AND 2 70 LET 

LC21 = Z" 

245 PRINT "GIVE THE F0LL0WING RESULT" 

250 LET Z=LC 13 

252 REM **HERE WE ARE ST0RING THE VALUE 0F Lt 1 3 IN Z 

260 LET LC13=LC2J 

262 REM WE HAVE PUT THE VALUE 0F LC23 INT0 LC 1 3 

270 LET LC23=Z 

272 REM HERE THE 0LD VALUE 0F LC 1 3 IS PUT INT0 LC23 FROM Z 

280 PRINT "LCI 3 = "*LC13 

290 PRINT "LC23 ="JLC23 

300 PRINT "L00K CAREFULLY AT THE ORIGINAL LIST" 

310 PRINT "WE HAVE EXCHANGED ITEMS ONE AND TWO" 

320 PRINT 

330 PRINT "WE CAN PUSH EVERY NUMBER UP FOUR LOCATIONS IN THE 

LIST" 

340 FOR P=l TO 4 

350 LET LCP+4J=LCP3 

360 NEXT P 

370 FOR N=l T0 8 

380 PRINT LCN3J 

390 NEXT N 

500 DATA 4.9.-92*8 
9999 END 



RUN 
LISTl 

WE CAN PRINT THE ITEMS OF THE LIST EXPLICITLY 
LC1I LC23 LC33 LC 43 
A 9 -92 8 
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WE CAN ALS0 USE A L00P. THE L0NGER THE LIST THE BETTER 
BEING ABLE T0 USE A L00P IS 
A 9 -92 8 



WE CAN 0PERATE 0N THE NUMBERS IN THE LIST 


B LCBJ 


B*LCBJ 


1 A 


A 


2 9 


18 


3 -92 


-276 


A 8 


32 



WE CAN PRINT THE LIST BACKWARDS WITH F0R X=4 T0 1 STEP 

8 -92 9 A 

WE CAN REL0CATE ITEMS IN THE LIST 

250 LET Z=LCI}> 260 LET LCU=LC23 AND 270 LET LC2J = Z 

GIVE THE F0LL0WING RESULT 

Lt 1 1 = 9 

LC2J = A 

L00K CAREFULLY AT THE 0RIGINAL LIST 

WE HAVE EXCHANGED ITEMS 0NE AND TW0 

WE CAN PUSH EVERY NUMBER UP F0UR L0CATI0NS IN THE LIST 

9 A -92 8 9 4 -92 8 
D0NE 



( 


Start 


) 




"«qp*" 




/ 


READ A list / 
and / 
Blist / 






F0RK = 
T04 





F0R L = 1 
T0 4 



PRINT 
A[K] ; B[L], 



NEXT K 



^m^ 



f 



f END J 



NEXT L | 



Fig. 3-6. Flowchart for program PAIRS for printing all combinations from 
two four-item lists. 
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PAIRS 



10 


REM 30 T0 


40 READ THE A LIST 






20 


F0R 1 = 1 T0 


4 










30 


READ AC 1 1 












40 


NEXT I 












45 


REM 50 T0 


65 


READ THE 


B LIST 






50 


FOR J=l T0 


4 










60 


READ BCJ1 












65 


NEXT J 












67 


REM HERE 


IS ANOTHER NESTED LOOP 






70 


F0R K=l T0 


4 










80 


F0R L=l T0 


4 










90 


PRINT AiKj 


i BlL 


J J> 








91 


REM *** NOTICE 


THE USE 


0F THE SEMICOLON 


AND 


THE Ci 


100 


NEXT L 












1 10 


PRINT 












120 


NEXT K 












500 


DATA 1 , 3» 


5, 7 










510 


DATA 2,3* 


6.9 










999 


END 












RUN 














PAIRS 












1 


2 


1 


3 


1 6 


1 


9 


3 


2 


3 


3 


3 6 


3 


9 


5 


2 


5 


3 


5 6 


5 


9 


7 


2 


7 


3 


7 6 


7 


9 



DONE 

SUMMARY 

The computer list has been introduced. A list is like a subscripted variable 
in that it takes on different values according to the subscript. Each of the 
numbers in a list is a variable unto itself. It may be handled in the same way 
that any of our previous variables may be handled. The numbers in a list may 
be rearranged. In order to exchange two numbers in a list, we first have to 
store one of them in another variable. 



PROBLEMS FOR SEC. 3-3 

1) Using one READ statement in a loop, prepare a nine-element list using the 
following numbers: 6, -89, 200, 31, 999, -999, 0, 1, and 18. Print out the list 
across the page first in the order given, then in reverse order. 

2) Fill a 10-element list with the squares of the subscripts. Print the element 
number and the listed value in order in two columns down the page. 

3) Prepare a 10-element list using the following numbers: 17, 18, 281, —722, 0, 
—5, — 16, 11, —1, and 10. Find the largest number in the list and its location. Print 
them. Then exchange the largest number with the first element in the list and print 
the new list with a loop. 

4) Prepare one list with the numbers 6, 4, 11, 51, and 17 and another with 51, 
12, 11, and 16. Now print all possible pairs using one number from each list. 

5) Repeat problem 4), without printing a pair if the numbers are the same. 

6) Redo program T0TAL in Chap. 2 using an N list for numbers of items and 
a P list for prices. Instead of N ° P use N[I] ° P[I]. 
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7) Prepare one list with the numbers 6, 11, 15, 17, 26, and 83 and another 
with 15, 19, 27, 83, and 91. Have the computer form a new list that contains only 
those numbers that are in both lists. 

8) Using the two lists given in problem 7), create a new list consisting of all 
numbers that appear in either list. If the number appears in both lists, enter it only 
once in the new list. 

9) LET F[l] = 1 and LET F[2] = 1, then fill the next eight positions in F so that 
every entry is the sum of the previous two entries. Print the complete list. You have 
begun to form the sequence known as the Fibonacci numbers. 

J 10) Form a 10-item list consisting of the first 10 positive odd integers in order. 
Form a second list so that each entry contains the sum of all the numbers in the 
first list up to and including the location number for the second list. 

11) Prepare one list containing 6, 1, 3, 7, 2, and 9 and another containing 8, 2, 
3, 9, 7, and 4. Form a third list containing the sums of the corresponding elements, 
i.e., A[I] = F[I] + S[I]. 

12) Do problem 11), but enter the products in the third list. 

■J 13) Fill a four-element list with 9, 60, 700, and 3000. Fill a three-element list 
with 7, 30, and 200. Sum up the products of all possible pairs of numbers, one 
from each list. 



( Start J 



READ 
list 



~^r 



PRINT 
list 



F0R I = 1 10 9 



For J = I + 1 
T01O 




Exchange 
L[I],L[J] 



PRINT 
list 



NEXT 



NEXT 



f END ^ Fi 8- 3 " 7 - 



Flowchart for arranging a 10-item list in 
numerical order. 
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3-4 MORE ON LISTS 

We will now discuss the arrangement of a list in numerical order. If we 
look at every pair of numbers in a list of numbers and they are all in numerical 
order, then we are assured that the entire list is in order. Thus, we must 
instruct the computer to look at all the pairs and determine whether or not 
they are in order. If the pair is in numerical order, then we want the com- 
puter to look at the next pair. If it is not, then we want the computer to 
exchange the two numbers. We can accomplish this in the same manner as 
was done in program LIST1. In other words, we store one of the numbers in 
a new variable. Then we put the second variable's value into the first variable 
and the original value of the first variable into the second variable from the 
storage variable. The three statements look like this: 

XXX LET S = L[I] 
YYY LET L[I] = L[J] 
ZZZ LET L[J] = S 

ARANGE 

10 REM WE ARE READING THE LIST FR0M DATA 
20 F0R X=l T0 10 
30 READ LCX3 
40 NEXT X 

50 PRINT "HERE IS THE LIST IN ORIGINAL ORDER- 
SO F0R Y=l T0 10 
70 PRINT LCYU 
80 NEXT Y 
90 PRINT 
100 REM N0W WE TEST PAIRS OF NUMBERS T0 SEE IF THEY ARE IN 

0RDER 
110 F0R 1=1 T0 9 

118 REM WHY DON'T WE SAY F0R 1=1 T0 10???? 

120 F0R J=I+1 T0 10 
130 IF LCI J <= LCJ1 THEN 300 
140 LET S=LCI] 
150 LET LCI3=LCJI 
160 LET LCJ3=S 

170 REM WE HAUE REVERSED TWB ELEMENTS 0F THE LIST 

180 REM **** SEE PROGRAM LIST1 **** 
300 NEXT J 
400 NEXT I 
405 PRINT "AND HERE IS THE LIST IN 0RDER FROM SMALLEST T0 

GREATEST" 
410 FOR Y=l T0 10 
420 PRINT LCYIJ 
430 NEXT Y 

500 DATA 6, -19. 28. 20. -32. 74, 19. 28. 23. 43 
999 END 

RUM 
ARANGE 

HERE IS THE LIST IN ORIGINAL 0KUEK 

6 -19 28 20 -32 74 19 28 23 43 

AND HERE IS THE LIST IN ORDER FROM SMALLEST TO GREATEST 

-32 -19 6 19 20 23 28 28 43 74 

DONE 
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In flowcharting when we have a process of this kind, which has been used and 
clearly defined, we can avoid being explicit by using a shape to indicate a 
predefined process. The generally accepted shape is a rectangle with two 
additional vertical lines, which appears in the flowchart of Fig. 3-7 for pro- 
gram ARANGE that solves the problem we have just outlined. 

In program ARANGE, the list is read in lines 20, 30, and 40. Then, for the 
purpose of seeing the list in the original order, it is printed immediately in 
lines 60, 70, and 80. In lines 110 and 120 two loops are set up, where the I 
loop represents the first number of the pair and the J loop represents the 
second number. As per line 118, why did we not let I go from 1 to 10? Had 
we done that, at some point in the program the computer would have to 
compare L[10] and L[10], which is not necessary. The first time through, 
L[l] = 6 and L[2] = —19. The first element is not less than or equal to the 
second. Thus, we want the computer to exchange these two elements. This is 
done by lines 140, 150, and 160. As the computer leaves line 160, L[l] = —19 
and L[2] = 6. It is relatively simple for us to have the computer print the list 
every time it is necessary to exchange two elements of the list. All that is 
required is to insert four statements exactly like 60, 70, 80, and 90. This is 
done in program ARANG1 in lines 200, 210, 220, and 230. This means that 
the more numbers out of order, the more printing we might expect. Study 
the printing of ARANG1 carefully. Notice that after the first reversal, L[l] = 
—19 and L[2] = 6 as promised. 

Look at the three sets of lines: 60, 70, 80, 90; 200, 210, 220, 230; and 410, 
420, 430, 440. You should recognize that these three sets of lines are identical. 
BASIC provides a convenient program statement that allows us to type out 
that set of lines only once and then call that set of lines from anywhere in the 
program. The statement is G0SUB XXX, where XXX designates the first line 
of the set of lines you would like repeated. The set of program statements 
that is repeated is called a subroutine. When the computer encounters YYY 
G0SUB XXX, it initially behaves as it would for G0T0 XXX. However, the 
computer "remembers" where it was when it left YYY and will return to the 
next higher numbered line after YYY when it finishes the subroutine. In order 
to achieve this, the computer must "know" when it has completed the sub- 
routine. You, the programmer, must notify the computer where the end is by 
inserting a line ZZZ RETURN at the end of the subroutine. Then the com- 
puter will "know" that it must go to the line immediately following the G0SUB 
XXX it most recently encountered. 



G0SUB-RETURN 

YYY G0SUB XXX sends the computer to line XXX to execute all 
lines it encounters until the RETURN statement, which sends the 
computer back to the line following YYY. G0SUB is especially useful 
in programs where the same set of lines is used several times. 
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ARANGl 



10 REM WE ARE READING THE LIST FR0M DATA 

20 F0R X=l T0 10 

30 READ LCXJ 

40 NEXT X 

50 PRINT "HERE IS THE LIST IN 0RIGINAL 0RDER" 

60 F0R Y=l T0 10 

70 PRINT LCYJJ 

80 NEXT Y 

90 PRINT 

95 PRINT "HERE WE ARE ARRANGING THE LIST" 

!00 REM N0W WE TEST PAIP.S 0F NUMBERS T0 SEE IF THEY ARE IN 

0RDER 
110 F0R 1 = 1 T0 9 

118 REM WHY D0N*T WE SAY F0R 1=1 T0 10???? 
120 F0R J=I+1 T0 10 
130 IF LCI1 <= LCJ3 THEN 300 
140 LET S=LCI) 
150 LET LCI]=LCJ1 
160 LET LCJ1=S 

170 REM WE HAVE REVERSED TW0 ELEMENTS 0F THE LIST 
180 REM **** SEE PR0GRAM LIST1 **** 
200 F0R Y=l T0 10 
210 PRINT LCY1J 
220 NEXT Y 
230 PRINT 
300 NEXT J 
400 NEXT I 
405 PRINT "AND HERE IS THE LIST IN 0RDER FR0M SMALLEST T0 

GREATEST" 

F0R Y=l T0 10 

PRINT LCYU 

NEXT Y 

PRINT 

DATA 6* -19. 28. 20* -32* 74* 19.28*23*43 

END 



410 
420 
430 
440 
500 
999 
RUN 
ARANGl 



HERE IS THE 

6 -19 

HERE WE ARE 



-19 

-32 
-32 
-32 
-32 
-32 
-32 
-32 
-32 
-32 
-32 
-32 
-32 



6 

6 
-19 
-IS 
-19 
-19 
-19 
-19 
-19 
-19 
-19 
-19 
-19 



AND HERE IS 
-32 -19 



LIST 

23 
ARRAN 

28 

28 

28 

20 

6 

6 

6 

6 

6 

6 

6 

6 

6 
THE L 

6 



IN 0RIGINAL 0RDER 

20 -32 74 

GING THE LIST 



20 
20 
20 
28 
28 
20 
19 
19 
19 
19 
19 
19 
19 



-32 

-19 

6 

6 

20 
28 
28 
20 
20 
20 
20 
20 
20 



74 
74 
74 
74 
74 
74 
74 
74 
28 
23 
23 
23 
23 



19 
19 
!9 
19 
19 
19 
20 
28 
74 
74 
28 
28 
28 



28 

28 
28 
28 
23 
28 
28 
28 
28 
28 
28 
74 
28 
28 



23 



1ST IN 0RDER FR0M 
19 20 23 



SMALLEST T0 
28 28 



23 
23 
23 
23 
23 
23 
23 
23 
23 
28 
28 
74 
43 

GREATEST 
43 74 



43 
43 

43 
43 
43 
43 
43 
43 
43 
43 
43 
43 
74 
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G0SUB 

10 PRINT "THIS PR0GRAM IS INTENDED T0 DEMONSTRATE G0SUB-S 
BEHAVI0UR" 



20 


60 SUB 700 




30 


F0R X=l T0 3 




40 


G0SUB 500 




■45 


G0SUB 700 




50 


NEXT X 




60 


G0SUB 400 




70 


PRINT 70 




75 


G0SUB 700 




80 


G0SUB 400 




90 


PRINT 90 




95 


G0SUB 700 




100 


LET X=4 




110 


G0SUB 500 




115 


G0SUB 700 




120 


G0SUB 400 




130 


PRINT 130 




135 


G0SUB 700 




140 


G0SUB 600 




150 


PRINT 150 




155 


G0SUB 700 




399 


G0T0 999 




400 


PRINT "HERE 


WE ARE AT LINE"J 


410 


RETURN 




500 


PRINT "THIS 


IS G0SUB 500"1X;"TIM 


510 


RETURN 




600 


PRINT "CALL 


G0SUB 400 FR0M G0SUB 


610 


G0SUB 400 




620 


RETURN 




700 


PRINT 




710 


RETURN 




999 


END 




RUN 






G0SUB 





600" 



THIS PR0GRAM IS INTENDED T0 DEMONSTRATE GOSUB'S BEHAVI0UR 

THIS IS G0SUB 500 1 TIMES 

THIS IS G0SUB 500 2 TIMES 

THIS IS G0SUB 500 3 TIMES 

HERE WE ARE AT LINE 70 

HERE WE ARE AT LINE 90 

THIS IS G0SUB 500 4 TIMES 

HERE WE ARE AT LINE 130 

CALL G0SUB 400 FR0M G0SUB 600 

HERE WE ARE AT LINE 150 



D0NE 
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Let us look at a demonstration program before we use G0SUB in ARANG1. 
Go through program G0SUB line by line to be sure you see what has hap- 
pened. Line 10 is reasonably clear. Line 20 says G0SUB 700. Line 700 says 
PRINT and the next line is RETURN. Thus the computer generates one blank 
line and goes to line 30, which sets up a loop. Inside the loop, G0SUB 500 
and 700 are called three times, once each for X = 1, 2, and 3. This program 



ARANG2 








10 


REM ^E ARE READING THE LIST FR0M DATA 




20 


F0R X=l T0 10 








30 


READ LCXJ 








40 


NEXT X 








50 


PRINT "HERE IS THE LIST IN ORIGINAL 0RDER" 




60 


G0SUB 410 








95 


PRINT "HERE WE ARE ARRANGING THE LIST' 






100 


REM N0W WE TEST PAIRS 0F NUMBERS T0 


SEE : 


[F THEY ARE IN 




0RDER 








110 


F0R 1=1 T0 9 








118 


REM WHY DON'T WE SAY F0R 1 = 1 


I T0 10???? 




120 


F0R J=I+1 T0 10 








130 


IF LCIJ <= LCJ3 THEN 300 








140 


LET S=LCIJ 








150 


LET LCII=LCJJ 








160 


LET LCJI=S 








170 


REM WE HAVE REVERSED TW0 ELEMENTS 0F THE LIST 


180 


REM **** SEE PR0GRAM LIST1 


%t :$: sfc^c 






200 


G0SUB 410 








300 


NEXT J 








400 


NEXT I 








405 


PRINT' "AND HERE IS THE LIST IN 0RDER 


FROM 


SMALLEST T0 




GREATEST" 








40 7 


G0SUB 410 








408 


G0T0 999 








410 


F0R Y=l T0 10 








420 


PRINT LCYU 








430 


NEXT Y 








440 


PRINT 








450 


RETURN 








500 


DATA 6. - 19,28.20- -32. 74, 19,28. 


23,43 






999 


END 








ARANG2 








HERE 


; IS THE LIST IN ORIGINAL 0RDER 








6 


-19 28 20 -32 74 


19 


28 


23 43 


HERE 


: WE ARE ARRANGING THE LIST 








-19 


6 28 20 -32 74 


19 


28 


23 43 


-32 


6 28 20-19 74 


19 


28 


23 43 


-32 


-19 28 20 6 74 


19 


28 


23 43 


-32 


-19 20 28 6 74 


19 


28 


23 43 


-32 


-19 6 28 20 74 


19 


28 


23 43 


-32 


-19 6 20 28 74 


19 


28 


23 43 


-32 


-19 6 19 28 74 


20 


28 


23 43 


-32 


-19 6 19 20 74 


28 


28 


23 43 


-32 


-19 6 19 20 28 


74 


28 


23 43 


-32 


-19 6 19 20 23 


74 


28 


28 43 


-32 


- i9 6 i9 20 23 


26 


7*1 


26 43 


-32 


-19 6 19 20 23 


28 


28 


74 43 


-32 


-19 6 19 20 23 


28 


28 


43 74 


AND 


HERE IS THE LIST IN 0RDER FR0M 


SMALLEST T0 


GREATEST 


-32 


-19 6 19 20 23 


28 


28 


43 74 



DONE 
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is not intended to actually achieve any particular result except to give us a 
chance to trace out the path of the computer through several G0SUB 
statements. 

You might wonder why 399 G0T0 999 is in there. Consider what would 
happen if it were not there. Line 155 says G0SUB 700, which means go to 
line 700, execute a line feed, and return. Then what? Line 400 is next. Print 
"HERE WE ARE AT LINE," and "RETURN." RETURN where? RETURN 
in this subroutine responds only to G0SUB 400 and there was no such 
statement. The computer cannot execute such a set of instructions and will 
print a message to that effect. So you must build a barrier in front of sub- 
routines to prevent the computer from accidentally beginning without the 
proper G0SUB statement. Notice that lines 500, 600, and 700 are already 
protected by RETURN statements. 

Now we should be ready to enter the G0SUB concept into ARANG1. This 
program is called ARANG2. Examine lines 60, 200, and 407. See the barrier 
at line 408 to prevent accidentally beginning the subroutine. 

SUMMARY 

1) The computer list is beginning to emerge as a powerful storage area for 
keeping numbers while we have the computer perform tests on numbers in 
the list. 

2) We can rearrange the elements in numerical order by testing all pairs 
and exchanging any that are not in the required order. 

3) G0SUB permits us to use the same set of program statements many 
times at many different points in a program without disturbing the progress 
of the computer through the rest of the program. 

PROBLEMS FOR SEC. 3-4 

1) Write a program to print the following numbers in decreasing numerical order: 
34, —67, 10, 0, —99, 103, and 1. Count the number of times the computer has to 
exchange two numbers and the number of comparisons. 

2) Write a program to print the following numbers in increasing numerical order: 
45, 76, —76, 45, and 98. Do not print the duplicated number, but leave it in the list. 

3) Program the computer to list the numbers in order in problem 1) by comparing 
elements one and two first, then elements two and three, then elements three and 
four, etc. Create a switch S = for off and S = 1 for on. Turn the switch off, then 
if an exchange is required, turn the switch on. After testing the last two elements, 
look at the switch. If it is on, go through the list again. If it is off, print the list; 
it must be in order. Count the number of tests and the number of exchanges. 

4) Prepare a five-element list using the averages of the test scores from program 
AVG in Sec. 3-1. Then arrange the averages in decreasing order and print a number 
representing the position in the original list. This latter can be done by setting up 
a second list containing 1, 2, 3, 4, 5, then exchanging these numbers each time the 
corresponding averages are exchanged. 

5) Prepare one list with the numbers 0, 6, 1, 3, 7, 2, 3, 1, 4, and 9 and another 
with 0, 8, 2, 3, 9, 7, 4, 1, 2, and 4. Prepare a third list with the sums of the corre- 
sponding elements. So far this is similar to problem 11) in Sec. 3-3. Beginning with 
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the highest subscript, look at each entry in the sum list. If the entry is less than 10, 
proceed to trie next entry, xt tire entry is more tnan 9, subtract lo rrorn brat entry 
and add 1 to the entry with the next lower subscript. Print all three lists across the 
page, one above the other, with the sum list last. What have you accomplished? 
/ 6) On seven consecutive days the high and low temperatures were as follows: 
51-71, 48-67, 50-77, 55-78, 55-76, 55-75, 49-79. Write a program using lists to find 
the greatest range and the number of the day on which it occurred, the average high, 
and the average low. 

7 7) Prepare two 10-element lists using the following numbers: 43, 65, 92, 38, —45, 
0, 15, 61, -61, -15, 45, 54, 52, -14, 49, -3, 66, 72, 29, -1. Arrange all the 
numbers in increcisin (r numerics! order. 

y 8) The following" test scores are given: 65, 71, 82, 63, 90, 58, 66, 67, and 68. 
Program the computer to list the scores, calculate the average, and then find the 
number of test scores that were above average and the number below average. 
Also, find the score where there are the same number of scores above as below, 
y 9) The Fibonacci numbers are generated by letting the first two numbers of tire 
sequence equal 1, and from there on each number may be found by taking the 
sum of the previous two elements in the sequence. So you get 1, 1, 2, 3, 5, 8, 13, 
etc. Prepare two lists: one with the first 10 and the other with the second 10. For 
each element from 2 to 19 find the difference between the square of the element 
and the product of the elements immediately preceding and following. In other 
words, print F[I] • ° 2 - F[I - 1] ° FU + 1]. 



CHAPTER 4 



ompu 



4-1 INTRODUCTION TO INT( ), SQR( ), ABS( ), AND SGN( ) 

The four functions discussed in the following, will prove very useful in 
BASIC. 

INT(X) is used in two ways. In some computers, INT(X) determines the 
greatest integer not greater than X. For example, if A = INT(43.2), then 
A = 43; if A = INT(6), then A = 6; and if A = INT(-2.3), then A = -3. In 
other computers, INT(X) truncates the number X, i.e., it simply removes the 
decimal part. So if A = INT(-2.3), then A = -2. 

SQR(Y) computes the non-negative square root of Y. For example, if B = 
SQR(16), then B = 4. 

Some computers will not compute if B = SQR(— 16). However, if we have 
many values for which we want the square roots and some happen to be 
negative, we can instruct the computer to take the square root of the absolute 
value of Y. BASIC provides ABS(Y) for just such occurrences. For example, 
ABS(18.3) = 18.3, and ABS(-24.61) = 24.61. So we can use SQR(ABS(Y)) for 
the problem above. 

A fourth BASIC function which you may not have much call for right now 
is SGN(N). SGN(N) is +1 if N is positive, if N is 0, and -1 if N is negative. 
The number in parentheses is called the argument of the function. Note that 
the argument may be an explicit number, a variable, another function, or any 
algebraic: expression. Study the demonstration program ASIS to see how the 
computer handles these functions. 



INT(X) computes the greatest integer of X. 

SQR(X) computes the positive square root of X. 

ABS(X) computes the absolute value of X. 

SCN(X) is +1 if X is positive, if X = 0, -1 if X is negative. 
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ASIS 

10 

20 

30 

40 

50 

60 

70 

RUN 

ASIS 



PRINT ••X•■»••ABS<X>• , »••SQRCABSCX>>",.••INT(X>••*••SGNCX>■ 

READ X 

PRINT X»ABS<X>.SQR<ASSCX>).INT<X>,.SGNCX> 

DATA -899913. #-35. 2»-. 032 

DATA 0# .032.23. 412.8391 ' 

G0T0 20 

END 



_gOOQ J 2 . 

-35.2 
-.032 

O 

.032 

23.412 

8391 



ABSCX) 

gQQO IT. 

35.2 

.032 



.032 

23.412 

8391 



SQRCABSCX)) 


INT(X) 


9 48* 63 7 


-gOQQ 1 3 


5.93296 


-36 


. 1 7888 5 


- i 








. 178885 





4.8386 


23 


91. 6024 


839 1 



SGNfX: 
- I 

-1 





OUT 0F DATA IN LINE 20 

One common use of INT( ) is for factoring integers. We can look at the 
quotient of two integers, and if that is an integer, then the denominator is a 
factor. For example, 65/5 = INT(65/5); therefore 5 is a factor of 65. So in 
order to find the greatest factor, all we have to do is start with the integer, one 
less than the number we are trying to factor, and test to see if it divides with- 
out remainder. If it does, we use the conditional transfer and send the com- 
puter to a PRINT statement. If it does not, we let the computer subtract 1 by 
using a loop and try again. If we start at N, we will get N/N = INT (N/N) the 
first time through even for prime numbers. Let us also print N is prime if it is. 



( Start J 



READ 

N 



F0R D = N - 
T0 2 STEP - 




fTMJ PRIN1 
Wy N,D 



yes 




NEXT 



D i 



Fig. 4-1. Flowchart for factoring integers. 
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PRIMEl 

10 READ N 

20 FOR D=N-1 T0 2 STEP -1 

30 IF N/D=INTCN/D> THEN 70 

40 NEXT 

50 PRINT NJ"IS PRIME" 

60 G0 T0 1 

70 PRINT DJ-IS THE GREATEST FACT0R 0F"JN 

80 G0T0 10 

90 DATA 1946, 1949, 1009, 1003 

100 DATA 11001,240,11 

110 END 

RUN 

PRIMEl 

9 73 IS THE GREATEST FACT0R 0F 1946 

1949 IS PRIME 

1009 IS PRIME 

59 IS THE GREATEST FACTOR OF 1003 

3667 IS THE GREATEST FACTOR 0F 11001 

120 IS THE GREATEST FACTOR 0F 240 

11 IS PRIME 

OUT 0F DATA IN LINE 10 

So we stop at 2 rather than 1. First we draw the flowchart in Fig. 4-1, then 
write the program PRIMEl. 

In PRIMEl the computer tested 1949/D with 1947 different values for D 
before it decided that 1949 is prime. That is a lot of tries. Whenever reasonable, 
we should try to improve the efficiency of our program. What do we know 
about factors of integers? We know that the smallest possible factor is 2. So the 
greatest could be N/2. For 1949 then, we can reduce the number of tries to 
975. But we also know that if we try all possible divisors down to the square 
root of the number we are trying to factor, then the quotients will also be less 

PRIME2 

10 READ N 

20 FOR D=2 TO SQRCN) 

30 IF N/D=INT<N/D) THEN 70 

40 NEXT D 

50 PRINT NJ"IS PRIME" 

60 G0T0 10 

70 PRINT N/DJ-IS THE GREATEST FACTOR 0F"JN 

80 GOTO 10 

90 DATA 1946,1949,1009,1003 

100 DATA 11001,240,11 

110 END 

RUN 

PRIME2 

9 73 IS THE GREATEST FACTOR OF 1946 

1949 IS PRIME 

1009 IS PRIME 

59 IS THE GREATEST FACTOR OF 1003 

3667 IS THE GREATEST FACTOR OF 11001 

120 IS THE GREATEST FACTOR OF 240 

1 1 IS PRIME 

OUT OF DATA IN LINE 10 
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than the square root. So we might try F0R D = N - 1 T0 SQR(N) STEP -1. 
Well, SQR(1949) is approximately 44 and this means 1904 tries, which is much 
worse. But why not go from 2 up to SQR(1949)? Now we have only 43 tries 
and if we do get divisibility for other numbers, we will have the smallest 
factor and we can get the greatest factor by dividing the number by its small- 
est factor. This seems worth making the necessary changes in PRIME 1. Only 
lines 20 and 70 require changing. Line 20 is the line which sets up the loop 
to test for divisibility and line 70 is the PRINT statement. In the PRINT 
statement we want N/D printed now, whereas we wanted D printed before. 
See PRIME2. 



SUMMARY 

Four computer functions were introduced. 

1) INT(A) evaluates the greatest integer of A. 

2) SQR(B) finds the positive square root of B. 

3) ABS(C) computes the absolute value of C. 

4) SGN(D) becomes + 1 if D is positive, if D is 0, and -1 if D is negative. 
The value in parentheses is called the argument of the function. 

PROBLEMS FOR SEC. 4-1 

1) Modify PRIME2 to write all pairs of factors. 

2) Modify the program in problem 1) to print no duplications. 

3) Write a program that will print only prime factors of integers. 

4) Write a subroutine that will perform the work of ABS( ), without using 
another computer function. 

5) Write a subroutine that will perform the work of SGN( ), without using 
another computer function, 

6) Write a program to print all different pairs of factors of the following set of 
integers: 711, 991, -991, 453, -654, 1009, -1009, 9001. 

7) Write a program to print all of the prime positive integers less than 100. Do 
not let the computer try numbers divisible by 2. 

8) Print the prime integers from 1000 to 1500. Do not let the computer test the 
even numbers. 

/ 9) For each of the following pairs of numbers, find two numbers so that die 
sum of your two is the first number in the given pair and the product is the second 
number in the given pair: 3, 2; 7, 12; 11, 28; -11, 28; 3, -28; 76, 1003; 7, 8; 
34, 289. 

4-2 REDUCING COMMON FRACTIONS AND DIMENSION 
CONVERSIONS 



rv„„f;„.,t. 



We are finally ready to reduce fractions to lowest terms. Look at problems 
13) and 14) in Chap, 1, There, if we had added 5/6 and 7/8 we would have 
gotten 82/48. Since, however, it is customaiy to reduce fractions, we would 
like to get 41/24. 



1 

an 

wi 
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All we have to do is find the largest factor of the numerator that is also a 
factor of the denominator. Only this time we have to go all the way to 2. So 
we will use the procedure of program PRIME1. First we should prepare a 
flowchart. See Fig. 4-2. We simply find the greatest factor of the numerator 
and see if it is also a factor of the denominator. If it is, fine. If it is not, then 
we go back and find the next greatest factor of the numerator and test to see 
if that is a factor of the denominator. If it is, fine. If not, we go back again 
id look for the next factor of the numerator. If we get all the way to 2 
ithout a number that is a factor of both numerator and denominator, then 
we print the fraction as it was given. See program REDUCE. 

We should try to pick the largest factor of the smaller number to reduce 
the number of tries the computer has to execute. 

Dimension Conversions 

We find the INT( ) function useful in simplifying dimensioned numbers 
to simplest form. Suppose we change 93 in. to feet and inches. By hand we 
would divide 93 by 12 and the whole number in the result would be in feet. 
Then the remainder would be in inches. The problem would appear as follows: 

_7 

12)93 
84 

9 

and we would say 7 ft 9 in. with no difficulty. We can easily get the 7 by 
using INT(93/12), but it is an exercise in mathematics to get the 9. Let us 
look at the division problem in more detail: 

7.75 .75 



12)93,00 


12)9.00 


84 


8.4 


9.0 


.60 


8.4 


.60 


.60 


.00 


.60 




.00 





We see that if we divide 12 into the remainder after integer division, we get 
the decimal portion of the result if we divide by 12 by decimal division. That is, 

9/12 = 93/12- INT(93/12) 

for this problem. Or in general, for N divided by D and calling the remainder 
R we get 

R/D = N/D - INT(N/D) 

Multiplying both sides by D we get 

R = N - INT(N/D) ' D 
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C Start J 


-<D 


/ READ k 

/ 7 r 


x 


F0R P = N T0 
2 STEP -1 




/^IsPa^ 

<T factor of N?/ 1 

Jno 


yes . 


NEXT P 


KD 


JU 




/ PRINT / 

/ N ' D / 




yes ^/ PRINT 
N/P, D/P 



Fig. 4-2. Flowchart for reducing common fractions. 



REDUCE 



10 READ N.D 




20 FOR P=N T0 2 STEP -t 


30 IF N/P=INTCN/P) 


THEN 70 


40 NEXT P 




50 PRINT N*V"D 




60 G0T0 10 




70 IF D/P=INT<D/P> 


THEN 90 


80 G0T0 40 




90 PRINT ti"/"0"="ti/P"/'"0/P 


100 G0T0 10 




110 DATA 5.6 




120 DATA 82-48 




130 DATA 3*4 




1 40 DATA 36. 48 




150 END 




RUN 




REDUCE 




5 / 6 




82 / 48 = 41 


/ 24 


3 / 4 




36 / 48 =3 


/ 4 



airr 0F data in line 10 
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So all we need is a program statement LET R = N - INTYN/D) ° D See line 
20 in program DEMREM. ' 



DEMREM 



5 

10 

15 

20 
30 
40 

50 

52 

60 

RUN 

DEMREM 



PRINT 
READ 
REM 
LET 
PRIN 
G0T0 
DATA 
DATA 
END 



"NUMERATOR", "DENOMINATOR", "REMAINDER". "INTEGER QUOTIENT' 
N, D 



FIND THE REMAINDER WHEN 
R=N-INT<N/D)*D 
T N.D, R, INTCN/D) 

10 

93/ 12. 100>25. 365. 52, 365, 7 

365, 12,52, 13,5280, 440,55,6 



N ' IS DIVIDED BY 



NUMERAT0R 
93 
100 
365 
365 
365 
52 

5280 
55 



BUT 0F DATA IN LINE 10 



DENOMINATOR 


REMAINDER 


12 


9 


25 





52 


1 


7 


1 


12 


5 


13 





440 





6 


1 



INTEGER QUOTIENT 
7 
4 
7 

52 
30 
4 
12 
9 



Now we can easily convert numbers in inches to feet and inches. First see 
the flowchart in Fig. 4-3 and then the program C0NVRT. 




Fig. 4-3 Flowchart for converting 
numbers in inches to feet and inches. 
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rfflMVIRT 










10 

20 
30 
40 


READ I 

LET F=INKI/12> 
LET I1=I-F*12 
PRINT I-INCHES • 


="F"F£ET ■ 


'■I1"IIMCHES' 


45 
50 


G0T0 10 

DATA 9.86.47.37 


.947.480 




60 


END 










RUN 
C0NVRT 










9 INCHES 
86 INCHES 
47 INCHES 
37 INCHES 
947 INCHES 
480 INCHES 


= 
= 7 
= 3 
= 3 
= 78 
= 40 


FEET 
FEET 
FEET 
FEET 
FEET 
FEET 


9 
2 
1 1 

11 




INCHES 
INCHES 
INCHES 
INCHES 
INCHES 
INCHES 



0UT 0F DATA IN LINE 10 

SUMMARY 

1) We can now find the greatest common factor of two integers and thus 
reduce fractions to lowest terms. 

2) We have seen that the INT( ) function may be used to break quotients 
up into their integer part and their decimal part less than 1. 

3) We can find the remainder in a division problem by using R = N — INT 
(N/D) ° D. This allows us to convert dimensioned numbers, such as inches, 
to feet and inches. 



PROBLEMS FOR SEC. 4-2 

1) Write a program to add two simple fractions and print the sum reduced to 
lowest terms. 

2) Improve the efficiency of program REDUCE by putting the smaller number in 
the P loop in line 20. 

3) Write a program to convert improper fractions to mixed numbers. 

4) Convert inches to yards and feet and inches. 

/ 5) Write a program to multiply two fractions, converting the result to a mixed 

number in reduced form. 

y 6) Convert dollars in decimal form to the equivalent in coins. 

7) Do problem 5) for adding two fractions. 

8) For each of the following pairs of numbers, find the greatest common factor: 
190, 1083; 27, 35; 27, 36; 16, 34; 12, 30. 

9) For each of the following pairs of numbers, find the least common multiple: 
190, 1083; 25, 745; 187, 34. 

10) Prepare a list consisting of the first 10 Fibonacci numbers. Find the greatest 
common factor for every pair in the list, prepare a list of these with no duplications, 
and print them. 

y 11) Write a program to find the greatest common factor of sets of three numbers 
assigned as data. 
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4-3 PROGRAM-DEFINED FUNCTIONS 

Suppose we have $56.31 in a savings account bearing 4M% interest com- 
pounded monthly and we hear of a bank that is offering 4%% compounded 
quarterly. Should we change banks? We did work with compound interest 
earlier. So this should be a matter of doing two calculations in the same pro- 
gram. Let us leave the $56.31 in each bank for 10 years and see if there is 
enough difference to change banks. For compounding monthly, we use the 
yearly rate divided by 12, and calculate and add the interest 12 times per year. 
For quarterly compounding, we use the yearly rate divided by 4, and calcu- 
late and add interest four' times per year. In this case, use one loop for the 
years and a 1 to 12 loop for monthly compounding and a 1 to 4 loop for 
quarterly compounding, both inside the same 1- to 10-year loop. The flowchart 
in Fig. 4-4 should help to sort out this plan. 

Since the intent is to develop several concepts in this program that will 
require changing the printing, the variables will be printed individually on 
separate lines. This technique may often save typing when you anticipate 



Start 



Initialize 

principal 

on both rates 



F0R Y = 1 T0 
10 



Compute 

new principal 

for this year 

at 4.5% 



Compute 

new principal 

for this year 

at 4.75% 



NEXT Y 



PRINT 

headings 

and P's 



Fig. 4-4. Flowchart for computing 
compound interest at two rates. 



END 



J 
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making changes as you develop a program. Thus in program BANK1 lines 
130 and 150 are printed with semicolons at the end so that the printing can 
be placed at the ends of those lines from PRINT instructions on other lines. 
The values of the different principals will be printed, according to instructions, 
on lines 140 and 160. 

Note: On some computers line 10 of BANK! would be written as 10 LET 
P, PI = 0. 

We can certainly obtain the information we want from the RUN of this 
program in its present form. Clearly, we would get more interest by changing 
banks. You will have to decide whether it is worth switching. Even so, let us 
see what we can do to simplify the results. For instance, when we talk about 
money, most of us tend to round off to the nearest cent. So we should be able 
to have the computer do that too. We could multiply by 100 and then take 
the greatest integer, but that would give 8823 for P and we want dollars and 
cents. Let us then divide by 100 again and get 88.23. However, we really 
want 88.24 because the .007 is more than one half a cent. We can obtain this 
by adding .5 after we multiply by 100, then taking the greatest integer and 
dividing by 100 again. Adding .5 to positive numbers from .5 to .99 results in 
numbers from 1.0 to 1.49, and sends positive numbers from .01 to .49 into 
numbers from .51 to .99. When we take INT(the sum), the result increases by 
1 for numbers .5 or more and is unchanged for numbers less than .5. Thus 

BANK I 

10 LET P = P1 = 56.31 

20 F0R Y=l T0 10 

22 REM F0R TEN YEARS 

30 FOR M=l T0 12 

32 REM COMPOUND M0NTHLY AND C0MPUTE INTEREST 

40 LET I = P*4. 5/100/12 

50 LET P=P+I 

60 NEXT M 

62 REM THAT FIGURES THE INTEREST FOR THIS YEAR COMPOUNDED 

MONTHLY 

70 FOR Q=l T0 4 

72 REM COMPOUND QUARTERLY 

80 LET I 1 = P1*4. 75/100/4 

90 LET P1=P1+I 1 

100 NEXT 

102 REM THAT TAKES CARE OF THE QUARTERLY INVESTMENT FOR THIS 

YEAR 

108 REM NOW T0 COMPUTE THE NEXT YEAR 

1 10 NEXT Y 

120 PRINT "FOR TEN YEARS" 

130 PRINT "84. 5X COMPOUNDED MONTHLY..."! 

140 PRINT P 

150 PRINT "84.75% COMPOUNDED QUARTERLY..."! 

160 PRINT PI 
9999 END 
RUN 
BANK 1 

FOR TEN YEARS 

84. 5X COMPOUNDED MONTHLY... 88.2374 

84.75* COMPOUNDED QUARTERLY... 90.2943 

DONE 
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R0UND 



10 READ 


X 








20 LET Y 


=INT(X*100+.5>/100 




30 PRINT 


Y, 


X 






40 DATA 


2. 


31462, 2. 34999. 2. 3500 1.382. 61 


7. 346. 3.861 49E-02 


50 G0T0 


10 








60 END 










RUM 










R0UND 










2.31 






2.31462 




2.35 






2.34999 




2.35 






2.35001 




382 






382 




61 7.35 






617.346 




.04 






3.86149E-02 




0UT 0F DATA 


IN 


LINE 10 





we have a rounding function all our own as follows: 

LET Y = INT(X ° 100 + .5)/100 

Let us try this with a few numbers to see that it actually works, before we 
insert it in our banking problem. See R0UND. (It may often be wise to perfect 
a technique in a smaller uninvolved program before trying it in a longer more 
complicated one. There should be fewer sources of error in the final program.) 
R0UND works out well. However, we often have more than one variable 
that we want to round off. BASIC has a way of doing this. We may define 
any function of our own using DEF FNA(X) = ZZZZZZZZZZZZ, where X is 
a dummy variable. It simply holds a place where we will later enter the 
variable for which we want the function evaluated. The format of our round- 
ing function looks like this: 

XXX DEF FNH(Z) = INT(Z ° 100 + .5)/100 

XXX is the line number of the statement number of the DEFining statement 
in a BASIC program. We may substitute any letter of the alphabet for H. 
Thus, we may for example, DEF FNI( ) and DEF FNJ( ) for other func- 
tions in the same program. The third letter is the one that identifies which 
function we are calling for. We may define another function that rounds off 
to tenths as ZZZ DEF FNT(G) = INT (G ° 10 + .5)/10 and whenever we call 
for FNT( ), we round off to tenths. Let us see how this works out in program 
DEF( ). 



DEF 

XXX DEF FNA(X) = (any legal BASIC expression). BASIC pro- 
vides a program-defined function. It begins with FN followed by a 
third letter which is used to identify the function. (Some computers 
allow more than one argument.) 
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DEFO 



20 DEF FNH<H>=INTCH*100*. S>/100 

30 DEF FNT(T) = INTCT*10+.5)/10 

40 PRINT ••X","Y"."X/Y","FNH<X/Y>"."FNTCX/Y) M 

45 READ X,Y 

50 PRINT X,Y.X/Y»FNHCX/Y),FNT<X/Y> 

60 DATA 1, 11, I 0.3. 3. 4. 6. 11.2.3. 125.8.6324 

70 G0T0 45 



80 END 

RUM 

DEFO 














X 
i 




Y 
1 t 




X/Y 
9. 0909 1 E- 


-02 


FNH<X/Y) 
.09 


FN T < X 


10 




3 




3.33333 




3.33 


3.3 


3 




4 




. 75 




. 75 


.8 


6 




1 1 


.2 


.535714 




. 54 


. 5 


3. 


125 


8. 


6324 


.362008 




.36 


. 4 



0UT 0F DATA IN LINE 45 



Now we can alter our compound interest program BANK1. We only need 
to change two lines and insert the DEF statement. It is common practice to 
put all DEF statements at the beginning of the program. Let us also put in 
dollar signs ($). 

2 DEF FNHCX) = INTCX*100+.5>/100 
140 PRINT "S-FNHCP) 
160 PRINT "VFNHCP1) 

RUN 
BANK 1 

F0R TEN YEARS 

84.5* C0MP0UNDED M0NTHLY S 88.24 

84.75% C0MP0UNDED QUARTERLY ... S 90.29 

D0NE 

The results in the above program are rounded off to the nearest cent and 
the dollar signs make it clear that we are dealing with money. However, it 
would be even better if we could line up the decimal points. If your version 
of BASIC does not piovide a computer function to override the semicolon 
spacing, you may write your own subroutine that will allow you to place 
results exactly where you want them printed. In our particular problem all we 
want to do is move the first number three spaces to the light. But we might 
tnen want to move mem uoin luiuici id me u^m. on ici u.-> i.m mt mm. lw 
develop a subioutine. 

What we aie trying to do is to gain control over the number of spaces 
between items oi piinted output. This implies getting the computer to print 
dilleient numbers of spaces accoiding to our need This suggests putting XXX 
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PRINT " "; in a loop and letting the high number be a variable that equals 
the number of blank spaces required. The following subroutine will print X 
spaces. 

500 F0R S = 1 T0 X 

510 PRINT " " ; 

520 NEXT S 

530 RETURN 

In BANK1, no matter where we place the numbers, we will have to put the 
first number three spaces further to the right than the second number. We 
may now accomplish the required spacing by first printing according to line 
130 and then setting a reasonable value of X followed by G0SUB 500. Upon 
getting the computer to print according to line 150, we next LET X = X - 3 
put in three fewer spaces and G0SUB 500 again. Finally, we must be sure 
that we do not let the computer enter the subroutine accidentally. Should this 
happen, the computer will attempt to execute the RETURN statement when 
there was no prior G0SUB to direct it. To avoid this we can use 490 G0T0 
9999. However, BASIC has the statement XXX ST0P for just such a situation. 



ST0P 

XXX ST0P is equivalent to XXX G0T0 9999 when 9999 is the 
END statement. 



Below we list the latest changes, and name the resulting program BANK2. 
The entire program is listed to see where things fit together. As you can see, 
the results are aligned in the RUN. 



132 


LET X=4 


138 


G0SUB 500 


156 


LET X=X-3 


158 


G0SUB 500 


490 


STOP 


500 


F0R S=l T0 


510 


PRINT " "! 


520 


NEXT S 


530 


RETURN 


RUN 




BANK 2 



F0R TEN rEARS 

§4.5% COMPOUNDED MONTHLY... S 88.24 

84.75% COMPOUNDED QUARTERLY... $ 90.29 

DONE 
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BANK2 

2 DEF FNH<X)=INTCX*IOO+. 5>/100 

!0 LET P=P1=56.3! 

20 FOR Y=l T0 10 

22 REM F0R TEN YEARS 

30 F0R M=l T0 12 

32 REM COMPOUND MONTHLY AND C0MPUTE INTEREST 

40 LET 1=P*A. 5/100/12 

50 LET P = P+I 

60 NEXT M 

62 REM THAT FIGURES THE INTEREST FOR THIS YEAR COMPOUNDED 

MONTHLY 
70 FOR Q=l T0 A 
72 REM COMPOUND QUARTERLY 
80 LET I 1=P1*4. 75/100/ A 
90 LET P1=P1+I 1 
100 NEXT Q 
102 REM THAT TAKES CARE OF THE QUARTERLY INVESTMENT FOR THIS 

YEAR 
108 REM NOV: TO COMPUTE THE NEXT YEAR 
1 10 NEXT Y 
120 PRINT "FOR TEN YEARS" 

130 PRINT "§4.5% COMPOUNDED MONTHLY "; 

132 LET X = 4 

138 GOSUB 500 

140 PRINT "S-FNHCP) 

150 PRINT "84.75% COMPOUNDED QUARTERLY..."! 

156 LET X=X-3 

1 58 GOSUB 500 

160 PRINT "S"FNHCP1> 

490 STOP 

500 FOR S=l TO X 

510 PRINT " "J 

520 NEXT S 

530 RETURN 

9999 END 

RUN 

BANK 2 

FOR TEN YEARS 

64.5% COMPOUNDED MONTHLY... S 88.24 

64.75% COMPOUNDED OUARTERLY... $ 90.29 

DONE 

Now as long as we have the spacing subroutine available, let us try several 
values of X in line 132 and see what happens. 

132 LET X=10 

RUN 

BANK 2 

F0R TEN YEARS 

94.5% COMPOUNDED MONTHLY... S 88.24 

04. 75% COMPOUNDED QUARTERLY... S 90.29 

DONE 



132 LET X=20 

RUN 

BANK 2 
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FOR TEN YEARS 

84. 5% COMPOUNDED MONTHLY... 

84. 75X COMPOUNDED QUARTERLY.. 

DONE 



S 88.24 
$ 90.29 



132 LET X=3 

RUN 

BANK 2 

FOR TEN YEARS 

84.5% COMPOUNDED MONTHLY... S 88.24 

84.75% COMPOUNDED QUARTERLY. .. $ 90.29 

DONE 

Note: See Appendix C for TAB( ) and PRINT USING formatting 
functions. 

SUMMARY 

1) The program-defined function DEF FNA(X) has been introduced. This 
allows us to have the computer perform the same function on different 
variables. 

2) The ST0P statement may be used to terminate the RUN of a program 
at places other than the physical end of the program. The end of a program 
specified in this way may be referred to as the logical end. 

3) We have constructed a subroutine that enables us to control more pre- 
cisely than with the semicolon or comma the spacing of printed results by 
putting " "; in a loop. This gives more versatility of format. 



PROBLEMS FOR SEC. 4-3 

1) Find the square roots of the integers from 11 to 23. Print the integer, its 
square root, and its square root rounded off to the nearest thousandth and to the 
nearest tenth with appropriate labels. 

2) How much money will you have in the bank, if you deposit $5 at the begin- 
ning of every month for 25 years in a savings account which pays 4'A% compounded 
monthly? 

3) Define a function for Y = — 3X^ + 7X — 3. Print pairs of values for 
X = -4 to 5. 

4) Do problem 2), but for daily compounding. Ignore leap year; use 12, 30-day 
months. 

/ 5) Set up a table of amounts that $100.00 will be at the end of 5, 10, 15, and 

20 years at 4%, 4K%, 4%%, and 5% per year compounded monthly. Put the rates in 

a rate loop. Print the years across the top and the rates in the first column of each 

row. 

J 6) Write a program to compare $99.00 compounded monthly at 4%%, quarterly 

at 5%, and daily at 4'A% for 15 years. Print with the decimal points lined up. 

7) Define a function for Y = 3X + 4. Print pairs of values for X and Y for 
X = -5 to 5. 

8) Define a function for Y = 2X^ + 8X - 1. Print pairs of values for X and Y 
for X = -6 to 2. 
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4-4 RANDOM NUMBER GENERATOR 

The last computer function we will consider in this chapter is RND(X). 
Often in programming we want numbers to try out a new program. Also, there 
are many events in mathematics and science that occur at random, If we do 
not have any real data or we want a very large number of numbers, it is 
desirable to have the computer pick the numbers for us. This can be done in 
BASIC with the computer function RND(X). 

RND(X) picks at random a decimal fraction between and 1. It will not 
"ick or I Oe^endin^ on the com"uter the value of y *r°" ^<> ;.-p™o*^,-joi 
but there must be a number in parentheses. If the argument does not affect 
the numbers generated, it is called a dummy argument. Some computers use 
the argument to determine the numbers generated. Computers vary as to the 
actual set of random numbers generated. Some have a fixed set of numbers that 
is the same every time RND( ) is used in the same program. Such a random 
number generator is called a pseudo random number generator. Others give a 
different set of numbers each time you run the same program. Program 
RND(l) is a short routine that prints a few random numbers. 



RNDC1) 






10 F0R X=l 


T0 


10 


20 PRINT RNDC5), 


30 NEXT X 






40 END 






RUN 






RNDC 1 ) 






.788345 




.865051 


6.9 7632E-02 




.209 30 5 



.595169 .285522 .856583 

.12793 .383804 .651428 



D0NE 



Before we get very far trying to use RND(Z) we realize that numbers 
between and 1 do indeed limit us greatly as a source of data. Suppose we 
want data selected from 1 to 10. First we might try to multiply the random 
number by 10 before taking the INT( ) function. Let us try it in RND(2). 



RND<2) 

10 F0R X=l T0 20 

20 PRINT INT(!0*RNDC1))J 

30 NEXT X 

40 END 

RUN 

kn u i a > 

3 5 5 2 6 3 1 

22639 43 4 

O0NE 
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Program RND(2) seems only to give integers through 9. However, RND(Z) 
will never take on 1 as a value, and therefore multiplying by 10 will never yield 
10 as the product. But we can add 1 to each of the above integers and both 
include 10 and exclude 0, which is exactly what we set out to do. The 1 can 
be added either before or after taking INT( ). We get 1 to 10 in program 
RND(3). 

RNDC3) 

10 F0R X=l T0 30 

20 PRINT INTC10*RNDC 1)-H)J 

30 NEXT X 



10 



RUN 
RNDC3) 






















5 


8 


4 


5 


3 


3 


7 


5 


5 


10 


9 


8 


7 


1 


7 


1 


8 


3 


4 


2 


10 


9 


1 

D0NE 


6 


6 


1 


3 


3 













If we want decimal numbers from 1 to 11, not including 11, all we have to 
do is leave out the INT( ), as in RAND3+. 



RAN 03+ 



10 F0R X= 
20 PRINT 
30 NEXT X 
40 END 
RUN 
RAND3+ 


1 T0 10 
10*RNDC9)*U 










10.0205 


3.06177 


7. 18546 


4.55652 


1.66971 


8.00928 


2.02798 

D0NE 


9.08411 


5.25247 


8. 75757 







Now we have a way to determine the interval in which the numbers are 
picked. If we can get 1 to 11 with 10 * RND(Z) + 1, we ought to be able to 
get 1 to 100 with 99 ° RND(Z) + 1. 



RND(X) 

XXX LET Y = RND(X) will assign at random a number between 
and 1 to Y. We can get integers from 1 to A with INT(A « RND(X) 
+ 1). 
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Now, what shall we do with randomly assigned numbers? The possi- 
bilities are endless. We could put some in a list and arrange them in numerical 
order. Remember ARANGE? Instead of reading data, we can use randomly 
assigned numbers. This time, let us not print the list after every exchange, 
but only after it is in order. How about picking integers from 1 to 250? This 
will require INT(250 ° RND(l) + 1). This time let us rewrite the program to 
look at successive adjacent pairs in the list. This method was outlined in 
problem 3) of Sec. 3-4. As we have the computer look at each pair, we have 
it decide whether the first is less than or equal to the second. If it is, then we 
do not exchange-exactly as in ARANGE. But if the first is greater than the 
second, we call for the exchange. However, there is no guarantee that the list 
is in order after the first time through. So we have to turn on a switch after 
each exchange. Then after the computer has gone through the list comparing 
1 and 2, then 2 and 3, then 3 and 4, etc., we have it check the switch. The 



( Start J 



**Ggs|p5li* 



F0R X = 1 
10 10 



< mj%|pg' 



LET L(X) 
= INT (250* 
RND(1) + 1) 



"*n{|py 



NEXTX 



r 



END 



Turn 
switch off 
LET S = 



Exchange 

L(I)and L(l + 1) 

See ARANGE 



Turn 
switch on 
LET S = 1 



PRINT 
list 




Fig. 4-5. Flowchart for arranging a list of numbers assigned from 
RND( ) using comparison of adjacent pairs. 
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name of the switch can be any number of things, but here we will use S. If 
S = 0, the switch is off. If S = 1, the switch is on and we tell the computer to 
look at the list again. If the switch is off, we want the computer to print the 
ordered list. Under what conditions do you think this will be the most efficient 
ordering technique? The name of this program is ARANG3 and its flowchart is 
in Fig. 4-5. 

ARANG3 

10 F0R X=l T0 10 

20 LET LtX] = INTC250*RND<l)+l> 

40 NEXT X 

58 REM TURN THE SWITCH 0FF!H 

60 LET S=0 

70 F0R 1 = 1 T0 9 

80 IF LCI3 <= LCI+13 THEN 130 

90 LET K=LCI3 

100 LET LCI]=LCI+n 

110 LET LCI+U=K 

120 LET S=l 

121 REM *** TURN THE SWITCH 0N *** 
130 NEXT I 

138 REM IS THE SWITCH 0N?? 

140 IF S=l THEN 60 

142 REM IF THE SWITCH IS 0FF THERE WERE N0 EXCHANGES AND 

143 REM THE LIST IS IN 0RDER 

145 PRINT "THE NUMBERS IN ORDER- 
ISO F0R X=l T0 10 
160 PRINT LCXIl 
170 NEXT X 
180 END 
RUN 
ARANG3 

THE NUMBERS IN 0RDER 
12 67 75 98 109 161 162 199 221 231 

D0NE 



The program looks fine, but nobody could prove that we really used the 
ordering routine to put the list in order, because we do not know what the 
original list was. So let us put back the routine that prints the list as it is 
formed. 

5 PRINT "HERE IS THE LIST AS IT IS BEING F0RMED***" 

30 PRINT LCX)J 

42 PRINT 

RUN 

ARANG4 

HERE IS THE LIST AS IT IS BEING F0RMED*** 
94 156 216 22 64 65 195 210 129 11 

THE NUMBERS IN 0RDER 
11 22 64 65 94 129 156 195 210 216 

00 ME 

Fine! Now we believe it. We have just put 10 random numbers in order. 
It is about time we found out how to create longer lists. 
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DIM 

We can usually get 10 (or 11) elements in a list. If we want longer lists 
we simply notify the computer that we wish to specify a greater dimension for 
our list. The BASIC statement is XXX DIM L[Z], where Z is the highest sub- 
script in the list. Computers vary. Some allow a variable in parentheses, while 
others require an explicit integer. If you do not know how long the list is 
going to be, simply pick a number larger than you think you will need. You 
need not use every location in the list. Let us dimension a list in ARANG4 up 
to 75 and use 20 locations to see how a longer list looks. 



2 DIM LC75) 

7 LET N = 20 

10 F0R X=l T0 N 

70 F0R I = I I8N-I 

150 F0R X=l T0 N 

RUN 

ARANG5 

HERE IS THE LIST AS IT IS BEING F0RMED*** 
41 246 236 83 248 119 107 195 85 128 134 25 

73 93 27 204 

THE NUMBERS IN 0RDER 
25 27 41 73 83 85 93 107 111 119 122 128 

134 195 204 208 

D0NE 

The program seems to work nicely. Let us try a few other numbers. 



7 LET N=5 

RUN 

ARANGS 

HERE IS THE LIST AS IT IS BEING F0RMED*** 

71 86 6 141 172 

THE NUMBERS IN 0RDER 

6 71 86 141 172 

O0NE 



For N = 25 we list the entire program with all the changes we have made. 
Notice that when we made the original change we put lines 10, 70, and 150 
in terms of N so that we would not have to retype them each time we made a 
minor change in the length of the list. See ARANG5. 



1 1 1 


208 


122 


241 


83 


85 


93 


107 


236 


241 


246 


2 48 
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XXX DIM A[24], B[75], 


L[33] 


dimensions three lis 


ts. 


The A list 


has 24 as 


its highest subscript, B 


has 


75, 


and L has 


33 


You 


may 


dimension 


as many lists as will fit on one 


line 
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ARAN g 5 

2 DIM Lt 75] 

5 PRINT "HERE IS THE LIST AS IT IS BEING F0RMED***" 

7 LET N=25 

10 F0R X=l T0 N 

20 LET LCX] = INT<250*RNDC 1>+1> 

30 PRINT LCX]J 

40 NEXT X 

42 PRINT 

58 REM TURN THE SWITCH 0FF!!! 

60 LET S=0 

70 F0R 1 = 1 T0 N-l 

80 IF LCI] <= LCI+1] THEN 130 

90 LET K=LCI] 

100 LET LCI]=LC 1+1] 

110 LET LCI+1 J=K 

120 LET S=l 

121 REM *** TURN THE SWITCH 0N *** 
130 NEXT I 

138 REM IS THE SWITCH 0N?? 

140 IF S=l THEN 60 

142 REM IF THE SWITCH IS 0FF THERE WERE N0 EXCHANGES AND 

143 REM THE LIST IS IN 0RDER 

145 PRINT "THE NUMBERS IN 0RDER" 

150 F0R X=l T0 N 

160 PRINT LCX]J 

170 NEXT X 

180 END 



RUN 
ARAN G 5 




















HERE IS THE 
107 195 


LIST AS IT 
8 5 130 


IS 
138 


BEING 
38 


F0RMED*** 
112 209 


127 


5 


15 


168 


5 138 


1 62 1 09 


75 


98 


44 


6 


18 


177 


30 


213 


138 

THE NUMBERS 
5 5 


IN ORDER 
6 15 


18 


30 


38 


44 


75 


85 


98 


107 


109 112 


127 130 


138 


138 


138 


162 


168 


1 77 


195 


209 



213 

D0NE 

We will now generate random data for one other type of problem. If it is 
4 o'clock, 10 hours later it will be 2 o'clock. This concept contains the seed 
of the development of modular arithmetic. First let us write a little program 
to take random times and add random numbers of hours. The random times 
must be numbers from 1 to 12. The random numbers of hours could have 
virtually any range, but 1 to 36 will do. The flowchart of Fig. 4-6 should 
help to organize the problem. We can determine the number of computations 
with a loop. Here we are picking 10 pairs of numbers, with T for time and 
H for hours. Then we add them and check to see if the sum is less than or 
equal to 12. If the sum is less than or equal to 12, we want to have the sum 
printed as the time. If the sum is greater, we want to subtract 12 and check to 
see if the result is less than or equal to 12, etc. After the sum is printed we 
want the computer to return and pick another pair and repeat the same process 
until 10 pairs of numbers have been picked and processed. See CL0CK1. 
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Start 
1 


) 










F0R P = 1 
T0 10 


k 


LET T = INT 
(12«RND(1) + 1) 




P 










-«^pr 








LET H = INT 
(36*RND(1) + 1) 








^gUp- 








LET S = T + H 










J 










1 










S^ IS ^\ 

<T S< =12?> 


n ° k 


LETS = S-12 




¥ 






yes 
















NEXT P 


i 1 PR 


NT / 




^ 


7 T,F 




END 


^ 











Fig. 4-6. Flowchart for adding hours to times and computing times for 
program CL0CK. 



Now, if we want to change the number picked for hours, we can change 
line 30 to 30 LET H = INT(12 ° RND(l) + 1) and get the same range for 
both T and H. But then we would have two lines using exactly the same 
function: 

20 LET T = INT(12 ° RND(l) + 1) 
30 LET H = INT(12 ° RND(l) + 1) 

This situation is a candidate for the program-defined function: 

DEF FNC(Z) = INT(12 ° RND(Z) + I) 

Then lines 20 and 30 are 

20 LET T = FNC(l) 
30 LET H = FNC(l) 



Computer Functions 69 



CL0CK 1 




















10 


FOR P=l 


T0 10 
















20 


LET T=INTC12*RND<1>+1> 














30 


LET H=INT<36*RND<1)+1> 














A0 


LET S=T+H 


















50 


IF S < = 


12 THEN 


80 
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LET S=S- 


-12 


















70 


G0T0 50 




















80 


PRINT H' 


•HOURS FR0M"T"0 "CLOCK 


IT WILL 
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•S"0 


•CLOCK 


90 


NEXT P 




















100 


END 




















RUN 






















CL0CK1 
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'CLOCK 


IT 


WILL 


BE 
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•CLOCK 
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FR0M 
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O'CLOCK 


IT 


WILL 
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•CLOCK 
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H0URS 


FR0M 
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O'CLOCK 


IT 


WILL 
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'CLOCK 


33 


H0URS 


FR0M 
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'CLOCK 


IT 


WILL 


BE 
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•CLOCK 


31 


H0URS 


FROM 
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'CLOCK 


IT 


WILL 


BE 


A 





•CLOCK 


32 


H0URS 


FROM 


12 


'CLOCK 


IT 


WILL 


BE 


8 





•CLOCK 


2 


H0URS 


FROM 
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'CLOCK 


IT 


WILL 


BE 


11 





•CLOCK 


28 


H0URS 


FROM 
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O'CLOCK 


IT 


WILL 


BE 


8 





•CLOCK 


8 


HOURS 


FROM 


10 


O'CLOCK 


IT 


WILL 


BE 


6 





•CLOCK 


A 


H0URS 


FR0M 


1 1 


O'CLOCK 


IT 


WILL 


BE 


3 





•CLOCK 



DONE 



In CL0CK2 we change lines 20 and 30 and insert line 5 to define FNC( ) 
and list the program in full. 



CL0CK2 

5 DEF FNCCZ)=INT<12*RNDCZ)+1) 

10 FOR P=l T0 10 

20 LET T=FNC< 1) 

30 LET H=FNC(1) 

40 LET S=T<-H 

50 IF S <= 12 THEN 80 

60 LET S=S-12 

70 GOTO 50 

80 PRINT H"HOURS FR0M"T"0 'CLOCK IT WILL BE"S"0 'CLOCK' 

90 NEXT P 

100 END 

RUN 
CLOCK 2 
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O'CLOCK 
O'CLOCK 
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•CLOCK 
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•CLOCK 
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•CLOCK 
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•CLOCK 


12 





•CLOCK 
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•CLOCK 
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•CLOCK 


10 





•CLOCK 



DONE 
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Modular Arithmetic 



From the clock program we can easily develop the concept of modular addi- 
tion. The biggest difference between modular addition and the last program is 
that for modulo 12 addition mathematicians define the set of integers as {0, I, 
2, 3, 4, 5, 6, 7, 8, 9, 10, 11 j, dropping 12 and appending 0. Now we may not 
allow sums of 12 as before. So we will have to change line 50 to test for less 
than or equal to 11 not 12. But we must not change line 60 which subtracts 
12. Why? Since we defined a function in CL0CK2, we need change only line 5 
to generate integers from to 11. As we wrote CL0CK1, we would have had 
to change two lines. Of course, we will have to change the printing and name 
the new program M0D12. 
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LET A=FNC< 1 ) 


100 


END 
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LET B=FNC<1> 


RUN 
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LET S=A+B 
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PRINT A"*"B"= "; 


2 


+ 


9 


= 


11 
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WUo.-^ fl™-„ ,v „AA:n n „ 

tiply 5 by 7. We are accustomed to getting 35. But for M0D12 we only allow 
through 11, so we subtract 12 and get 23, which is still too large. Subtract 
12 again to get 11. Thus we are going to use the subtraction routine in the 
multiplication part of M0D12 also. This is a G0SUB situation. In the flow- 
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chart of Fig. 4-7, the G0SUB predefined process is the subroutine of lines 50, 
60, and 70 in M0D12. Of course, there are more changes in printing. We call 
the program MAMD12 (Multiply and Add MoD 12). 



( Start J 
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Get two num- 
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LET S = A + B 
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"^A"" 



(Z^D 



PRINT 
A"*"B 
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-•^j^gjpr" 


NEXT P 


A 


G0SUB 500 


1 



Fig. 4-7. Flowchart for adding and multiplying mod 12 for program 

MAMD12. 



SUMMARY 

Two major expansions in our programming capability have occurred in this 
section. We are now able to generate random numbers in any range we like. 
They can be limited to integers or they can be decimal numbers. And lists 
may now be dimensioned to the length that we require. We have also used the 
G0SUB statement to good advantage in a modular arithmetic program. 



72 Basic BASIC 



PROBLEMS FOR SEC. 4-4 



1) Print a list of 30 randomly assigned numbers from 2.00 to 20.00 with tenths 
and hundredths permitted but no digits to the right. 

2) Print a list of 25 integers from —200 to 200 assigned by a random number 
function in increasing order. 

3) Print the list in problem 2) to guarantee that there are no duplications. In 
other words, if you generate a number that has already been used, generate another. 

4) Prepare a list of the first 18 Fibonacci numbers. For all nonequal pairs find 
the greatest common factor. Enter the greatest common factors in a list with no 
duplications and print the result. 

5) Prepare a list of the first 20 Fibonacci numbers. For 1 = 2 to 19 print F[I] ° * 2 
- F[I - 1] ° F[I + 1]. 

6) Use three lists to add two 20-digit numbers. Use one list for each number and 
enter the digits one by one as elements in the list. Use the third list as the sum list. 
Be sure to carry if the sum of the two corresponding digits is 10 or more. 

7) Do problem 6) using two lists instead of three. 

J 8) Use three lists to multiply two 10-digit numbers digit by digit. (Could this 
be done with two lists?) 

9) Modify program MAMD12 to find the remainder after dividing the value of 
S by 12 to replace the subroutine that uses successive subtraction. 

10) Write a program to do arithmetic mod 5 and mod 6, five problems each. 
Put 5 and 6 in a data line and write one random function so that it generates to 4 
for mod 5 and to 5 for mod 6. 

11) Have the computer print the addition table and the multiplication table for 
mod 6. 

12) Have the computer do subtraction mod 7. 

13) Write a program in which the mod and the number of problems are selected 
at random, and the problems are generated with random data. 

14) Have the computer generate pairs of integers and find the greatest common 
factor. 

15) Have the computer generate sets of three integers and find the greatest 
common factor. 

16) Generate pairs of integers and find the least common multiple. 

17) Generate sets of four integers and treat them as coefficients of two binomials 
and find the three coefficients of the product; i.e., generate A, B, C, and D 
in (AX + B)(CX + D) and find E, F, and G in EX 00 2 + FX + G. Print all 
five numbers in two groups, one group for A, B, C, and D and another for E, F, 
andG. 

/ 18) Form two 20-element lists with integers in the same range. Form two other 
lists. One list is to contain all numbers that appear in both lists, i.e., the intersec- 
tion of the two lists. The other list is to contain a number if it is in either of the 
original two lists, but only entering it once if it is in both lists. In other words, find 
the union. 

19) Fill a 25-element list with the first 25 positive odd integers. Fill a second 
25-element list with the sum of all the entries of the first list up to and including 
the subscript number of the second list. 



CHAPTER 5 



Elementary Data Processing 



5-1 INTRODUCTION TO DATA PROCESSING 

One of the very common uses of computers is for data processing. There is 
no clear cut definition for data processing that distinguishes it from other 
kinds of computer activity. In a sense, all computer work is data processing. 
However, data processing often implies that the computer is being used to 
sort, collate, tabulate, and/or otherwise process data. Such activities as process- 
ing questionnaires fall in this category. 

Tabulating One Item 

Let us ask some families how many television sets they have in their homes. 
The answers will be numbers, one number per family. We can set up a list so 
that the first element counts the number of families with one set and the Nth 
element counts the number of families with N sets. Before we begin counting, 
there will be zero families having each number of sets. So we will have to 
initialize each element of the list at 0. Then when the number for a family is 
read, we will add 1 to the element in the list corresponding to that number of 
television sets. If the first family has one set, then we have the computer look 
at T[l]. T[l] = to start, and adding 1 makes T[l] = 1. The next time a 
family has one set we have the computer add 1 to T[l], and then T[l] will 
equal 2. The process is repeated until all data is read. We will have to use 
dummy data, since we want to print the results only after we have tabulated 
all data. We can draw a simple flowchart. See Fig. 5-1. 

Of course we could allow for a larger number of sets by simply using a 
longer list. We could have provided for zero sets by letting T[l] tabulate 0, 
T[2] tabulate 1, T[3] tabulate 2, etc. Then line 60 in program TV'S would read 

60 LET T[N + 1] = T[N + 1] + 1 

because, when N is 0, you want T[l] and when N is 1, you want T[2], etc. 
Or we could use subscripts if they are available. 

73 
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LETT[N] 
= T[N] + 1 



PRINT 
headings 



PRINT 
list 



END 



TV ■ 



Fig. 5-1. Flowchart for tabulating number 
of television sets per family. 



10 FOK 1 = 1 TO 4 

20 LET TC I .1=0 

30 NEXT I 

31 REM EACH ELEMEMT IN THE LIST IS MOW iEKO 
40 HEAD N 

49 rvEM TEST FOR THE EMD OF DATA 

50 IF N=- 1 THEN 80 

59 REM INCREASE THE TABULATING ELEMENT FOR N SFTS BY ONF 

60 LET TCN1 = T[N]+1 
70 GOTO 40 

80 PRINT "N0. OF TV'S", "NO. 0F FAMILIES" 

89 REM NOW PRINT THE NUMBER OF SETS AND THE NUMBER 3F FAMILIES 

90 FOR 1 = 1 TO 4 
100 PRINT liTUl 
1 10 NEXT I 

498 REM EACH ITEM OF DATA IS THE NUMBER OF TVS IN OME FAMILY 
500 DATA 1.3.4, 1,2, 1,3. 1, 1,2, 4, 1,3, 1.2,4, 1,3, 1, 1, 1,4, 1,3,2, 
2, 1,2 

510 DATA 2,1,3,3,2,2,1,1,1,2,2,3,4,4,2,4,1,4,2,4,2,1,2,1 

520 DATA - 1 

999 END 

RUN 

TVS 



Uf I V '5 



NU. OK FAMILIES 
20 
1 5 



DONE 
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There are some more things that we can do with TV'S. We might have the 
computer count the number of families or count the total number of television 
sets. These figures may be computed as the data is being read. There can be a 
counting statement LET C = C + 1 somewhere between lines 50 and 70, and 
there can be a summing statement in the same part of the program. LET S = 
S + N will total the number of sets. Then as long as we have the total number 
of sets and the total number of families, we might just as well compute the 
average number of sets per family. These are left as exercises. 

Tabulating Several Items 

With just a few modifications TV'S can be extended to handle data pertain- 
ing to several different things. 

Suppose in taking a census, we ask not only how many television sets the 
family has, but also how many cars, homes, and bathrooms. All that is neces- 
sary is to have four counting lists instead of one. We need one list for each 
item being counted. In lines 10, 20, and 30 we initialize four lists at for up 
to eight items in any one category. This could be more or less for any par- 
ticular problem. We check for dummy data in line 50 and then update the 
four lists in lines 60 through 90. In the printing routine, I determines the 
element number in each list and so is the number of items in each list. T[I] 
is the number of families that have I television sets, C[I] is the number of 
families that have I cars, etc. See program TCHB. 

From the results we see that there were nine families with one car, seven 
families with two television sets, etc. We could also do more data processing 
in TCHB. We could find the average number of cars per family, etc. 

Tabulating Yes-No Answers 

We are not limited to numerical quantities. Suppose you were to question 
each of your classmates about courses they want to take. If you ask, "Do you 
want to take chemistry?" and the answer is "no," you can call that 0, and sim- 
ilarly call "yes" 1. Let us ask people if they want to take the following courses: 
chemistry, physics, French, Spanish, calculus. If someone says he wants to 
take chcmistiy, Fiench, and Spanish, his data will be: 1, 0, 1, 1, 0. We can use 
one list to count all courses, The first element of the list will count people who 
want to take chemistry, the second will count people who want to take French, 
etc. Before reading any data, we will have to initialize each element of the list 
at 0. Then after reading the first person's data, we want the list to be 
1, 0, 1, 1, 0, which can be done by adding the number representing yes or no 
to the number already in that location of the list. We can get the computer to 
read the data in groups of five by using a loop F0R R = 1 T0 5, with the 
READ statement and the tabulating statement inside. The real works of the 
program will be the tabulating statement 

LET C[R] = C[R] + K 

where R is the loop available and goes fiom 1 to 5 for each pei son's data. If 
R = 1, the course is chemistry; if R = 2, the course is physics, etc. Where K is 
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TCHB 

10 F0R 1 = 1 T0 8 

20 LET TCn = CCI]=HCI] = Bt 13 = 

30 NEXT I 

31 REM ALL TABULATING LISTS ARE INITIALISED AT ZER0 
40 READ T.C. H, B 

49 REM CHECK F0R DUMMY DATA 

50 IF T=-l THEN 110 

59 REM 60 T0 90 ENTER THE LATEST DATA IN THE F0UR LISTS. 

60 LET TC I] = TC 11+1 

70 LET CCC]=C[C1+1 
80 LET HCHJ=HCH3+1 
90 LET 9£S3~B£B3+' 

100 G0T0 40 

i09 REM HERE THE HEADINGS ARE PRINTED 

110 PKiNT "NUMBER. TVS. CARS. H0MES. BATHS" 

119 REM HERE THE RESULTS ARE PRINTED 

120 F0R 1=1 T0 8 

130 PRINT IJTCI1ICC njHtnjBt n 

140 NEXT I 

349 REM EACH GR0UP 0F F0 UR NUMBERS IS F3R 0NE FAMILY- T, C, H» B 

350 DATA 1. 1. 1, 1.2. 1. 1.2, 3.2, 1,2, 4. 3. 2.8,4, 2, 1,5 
355 DATA 2.1,1,3,1,1,1,3.2,1,1,2,1,1,1,1,2,1,1,1 
360 DATA 2,2,2,6,1,1,1.4.3.4.2.6.1,2,1,2,2,2,2,8 
365 DATA 2,1,1,2,-1.0.0,0 

400 END 

RUN 

TCHB 

NUMBER, TV'S, CARS, H0MES, BATHS 

1 5 9 12 3 

2 7 5 4 5 

3 2 10 2 

4 2 10 1 

5 1 

6 2 

7 

8 2 

D0NE 

this person does not want to take the course, and where K is 1 he does. So 
when K = 0, the tabulating statement adds to the previous value in the C 
list, which does not change the number there. This is what we want for the 
person who does not want to take the coinse. However, if K = 1, then the 
tabulating statement adds 1 to the previous value of the entry in the C list, 
which is exactly what we want the computer to do lor a person wanting to 
take the course. Again the dummy data is —1. 

From C0URS1, we can easily see that seven people want to take chemistry, 
five people want to take physics, etc. 

One last thing we might try to consider in this section is getting larger 
amounts of data in a program similar to C0URS1. Suppose you want to see 
what results might look like for say 500 people,. Well, you could ask 500 
pcop.c ;int» tr.cn type uui all dial uaia. Oi you could generate random data, 
with the understanding that the results will be random and may not simulate 
the real situation. However, knowing that the numbers will be random will 
help you spot serious errors if there are any. For 500 people and random data, 
each course should draw about 250 yeses. If the results show 96 or 600 yeses 
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CO UK SI 




10 FOS 1=1 TO 5 




20 LET CC U=0 




30 NEXT I 




40 F0:< K= 1 TO 5 




50 KEAD K 




60 IF K=- 1 THEN 100 




70 LET Ctri)=Ct lO+K 




80 NEXT H 




90 GOTO 40 




100 PRINT "CHEMI STrY". "PHYSICS". "FRENCH". "SPANI SH" 


'* "CALCULUS" 


1 10 F3R 1=1 T0 5 




120 PKINT CCI1, 




130 NEXT I 




990 KEM DATA IS IN ORDER CHEMISTRY PHYSICS FRENCH 


SPAN) I SH 


CALCULUS 




995 (EM M' MEANS YES # 0' MEANS NO 




1000 DATA 1.0»I.IiO,OiO>IiI.Oi1iIi1j1.I.OiOiIiI.Oi 


1* 1.0. 0. 1 


1010 DATA 0. 1. 1.0. 1.0.0*0* 1,0, 1* 1.0. 1.0* 1* 1*0*0, 1* 


1.0.0.0. 1 


1020 DATA 0,0, 1,0* 1, 1*0* 1*0.0 




1 100 DATA - 1 




9999 END 




RUN 




C0URSI 




CHEMISTRY PHYSICS FRENCH SPANISH 


CALCULUS 


7 5 7 6 


6 



D0NE 

in some course, then you must search for the error. One nice thing about using 
random data is that you do not have any data to type in. So in C0URS1 we 
may eliminate lines 1000, 1010, 1020, and 1100. Now the REM statements 
are not quite relevant. Line 60 can be deleted as we are not testing for dummy 
data and line 50 is deleted as we are not going to read data anymore. Line 90 
will be taken care of by putting in a loop 1 to 500 to simulate 500 people. To 
get random numbers or 1 we need INT(2 ° RND(l)). The initializing, the 
tabulating, and the printing of C0URS1 can be used in the new program 
C0URS2, where the results are reasonably close to 250. 

SUMMARY 

We have seen lists used to analyze data from questionnaire-type questions 
having numerical or yes-no type answers. The tabulating may be done using 
one or several lists depending on the problem itself. Random numbers may be 
used to try out such programs with many numbers. The random nature of 
these numbers may help to spot serious program errors, which might not show 
up with small amounts of data unless you check the totals by hand. 

PROBLEMS FOR SEC. 5-1 

1) Modify program TV'S to total the number of television sets and the number 
of families, and find the average number of sets per family rounded off to the nearest 
hundredth. 
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C0URS2 

10 FOR 1 = 1 TO 5 

20 LET XI I 3 = 

30 NEXT I 

33 REM THIS L00P SIMULATES 500 PEOPLE 

35 FOR X=I T0 500 

40 FOR R=l T0 5 

42 REM THIS L00P L00KS AT FIVE COURSES FOR EACH PERSON 

48 REM PICK A RANDOM NUMBER ZERO OR ONE 

50 LET K=INT(2*RND( 1)> 

70 LET CCR3 = CCR]+K 

78 REM NEXT COURSE 

80 NEXT R 

88 REM NEXT PERSON 

90 NEXT X 

100 PRINT "CHEM I STRY ", "PHYSI CS"» ' 'FRENCH'S "SPAN I SH". "CALCULUS" 

1 10 FOR 1=1 TO 5 

120 PRINT CCI3, 

130 NEXT I 

9999 END 

RUN 

C0URS2 

CHEMISTRY PHYSICS FRENCH SPANISH CALCULUS 
253 257 237 249 256 



DONE 

2) Modify program C0URS1 to find the number of people who want to take 
chemistry and physics. 

3) Modify C0URS2 to generate twice as many yeses as nos. 

4) Modify C0URS1 to find the number of people who want to take physics but 
not calculus. 

■J 5) Consider a questionnaire in which there are 14 questions which call for yes, 
no, or other answers. Let 1 be yes, 2 be no, and 3 be other. Set up three separate 
lists for yes, no, and other. Generate 25 sets of 14 numbers 1, 2, or 3 and find the 
number of each type of answer for each question number. Print the results in 
decipherable form. 

6) Modify C0URS2 to generate yes-to-no answers in a ratio of 3 to 4. 



5-2 ARRAYS 

So far we have only been able to store numbers in a simple variable or in 
a list. There will be situations where we will want to store more numbers than 
is convenient in a list. While we have seen that we can use several lists very 
effectively, BASIC provides a two-dimensional list for such situations. It may 
be called an array. You may think of an array as being similar to a checker- 
board. Instead of the familiar single subscript we have been using for lists, we 
will need double subscripts; one for rows and the other for columns. (As with 
lists, onmniifers varv Some will allow siihsorinrs. others begin with 1 .) For 
an array designated as A, A[l, 1] is the number in the upper lefthand corner. 
(In some cases, it will be A[0, 0].) A[l, 2] indicates the number in row 1 
and column 2; A[5, 8] indicates the number in row 5 and column 8, etc. In 
other words, the first subscript indicates the row starting at the top and the 
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second subscript indicates the column starting at the left. Thus, A[R, C] indi- 
cates the number in row R and column C. 

An array is just a set of numbers arranged in columns and rows. This per- 
fectly matches the printed result in program TCHB in Sec. 5-1. We may use 
each column of an array in the same manner that we used each list in that 
program, and we can use each row to keep track of the number of families 
having that number of the item being tabulated. But before we tackle TCHB 
in an array, we should see a little more how arrays operate. 

Very often we will use a nested loop, with one loop taking the computer 
through the columns and the other loop going through the rows. The structure 
of an array is shown in Table 5-1. For students without subscripts, consider 
the dashed outline to exclude the row and column. For students who have 
subscripts, consider the dashed outline to suggest that it is optional whether 
or not you use them at this time. 

TABLE 5-1. ARRAY STRUCTURE. 



| [0,0] [0,1] [0,2] [0,3] [0,4] [0,5] 



I [1,0] I [1,1] 
I I 

I I 

! [2,0] I [2,1] 



| 13,0] 



[3,1] 



[1,2] [1,3] [1,4] [1,5] 

[2,2] [2,3] [2,4] [2,5] 

[3,2] [3,3] 13,4] [3,5] 



ARRAY 1 




9 


«EM 


INITIALIZE A AT 0NE 


10 


LET 


A=l 


19 


REM 


R0WS G0 FR0M 1 T0 3 


20 


F0R 


R=l T0 3 


29 


REM 


C0L LIMNS G0 FR0M 1 T0 5 


30 


F0R 


C=l 10 5 


40 


LET 


TCR*CI = A 


50 


LET 


A=A+1 


59 


REM 


NEXT C0LUMN 


60 


NEXT 


' C 


69 


REM 


NEXT R0W 


70 


NEXT 


' R 


80 


PRINT "AT THIS P0INT THE ARRAY IS FILLED 


999 


ENO 


RUN 






ARRAY 1 





AT THIS P0INT THE ARRAY IS FILLED 



D0NE 



It is time for another demonstration program. In ARRAY1 we simply fill a 
3-row by 5-column array with integers 1 through 15 going first across the 
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page and then down, just as we read the printed page. In this program we 
have called the array T. Any letter of the alphabet may he used. However, do 
not use the same letter to name both a list and an array in the same program. 
This is because the computer treats a list as an array with just one column or 
one row, depending on the computer. 

We have filled the array just as the printed message states. However, as 
was noted in Chap. 1, in order for the work of the computer to be useful, 
we must eventually get back from the computer some printed results. Note 
that we say eventually. The more advanced we get in programming, the 
more we will do things that are not immediately printed. Nonetheless, just 
to restore your faith in the computer, let us ask it to print some values from 
the array we just created. After line 80 we will insert a variety of printing 



ARRAY2 


9 REM INITALIZE A AT 0NE 


10 


LET A=l 


19 


REM R0WS G0 FR0M 1 T0 3 


20 


F0R R=l T0 3 


29 


REM C0LUMNS G0 FR0M 1 10 5 


30 


F0R C=l T0 5 


40 


LET TCR»CI=A 


50 


LET A=A+1 


59 


REM NEXT C0LUMN 


60 


NEXT C 


69 


REM NEXT R0W 


70 


NEXT R 


80 


PRINT "AT THIS P0INT THE ARRAY IS FILLED" 


85 


PRINT 


89 


REM LET'S PRINT TC 3, 4] 


90 


PRINT "TC3. 4J ="; TC 3. 41 


100 


PRINT 


1 10 


PRINT "WH0 LIVES AT C 2» 53?"» TC 2. 51 J "LI VES THERE' 


120 


PRINT 


130 


PRINT "LET'S L00K AT THE ENTIRE ARRAY" 


139 


REM INCREMENT R0WS 


140 


F0R R=l T0 3 


149 


REM INCREMENT C0LUMNS 


150 


F0R C=l T0 5 


160 


PRINT TCR,C3» 


170 


NEXT C 


175 


PRINT 


176 


PRINT 


180 


NEXT R 


999 


END 


RUN 




ARRAY 2 



AT THIS P0INT THE ARRAY IS FILLED 

TC3, 41 = 14 

WH0 LIVES AT [2.53? 10 LIVES THERE 

LET'S L00K AT THE ENTIRE ARRAY 

12 3 4 5 

6 7 8 9 10 

11 12 13 14 15 

D0NE 
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with labels and comments much as we did earlier in the introduction to lists 
See ARRAY2. 

The elements of an array constitute variables just as do the elements of a 
list. We may operate on any element or elements in the array we choose 
Consider ARRAY3. 



ARR/ 


*Y3 


10 


LET A=l 


20 


F0R R=l 13 3 


30 


F0R C=l T0 5 


40 


LET ACR,C3 = A 


so 


LET A=A+1 


60 


NEXT C 


70 


NEXT R 


90 


PRINT "WE PRINT THE 0RI GINAL ARRAY"' 


100 


G0SUB 900 ' 


1 10 


PRINT "WE CAN MULTIPLY EVERY ELEMENT IN THE 4TH C0L UMM 




BY 6" 


120 


F0R R=l T0 3 


130 


LET ACR> 4] = ACR, 4]*6 


140 


NEXT R 


150 


G0SUB 900 


160 


PRINT "WE CAN SUBTRACT THE 3RD R0W FR0M THE 2N0 R0W" 


170 


PRINT "AND PUT THE RESULT IN THE 3RD R0 W" 


ISO 


F0R C=l T0 5 


190 


LET AC3.Cl = At2,Cl-AC3»C3 


200 


NEXT C 


210 


G0SUB 900 


880 


ST0P 


890 


REM ****PRINTING SUBR0UTINE IS HERE**** 


900 


F0R R=l T0 3 


910 


F0R C=l T0 5 


920 


PRINT ACR.CIJ 


930 


NEXT C 


940 


PRINT 


9 50 


PRINT 


9 60 


NEXT R 


9 70 


RETURN 


999 


END 


RUN 




ARRAY 3 



WE PRINT THE 0RI GINAL ARRAY 

12 3 4 5 

6 7 8 9 10 

11 12 13 14 15 

WE CAN MULTIPLY EVERY ELEMENT IN THE 4TH C0LUMN BY 6 

I 2 3 24 5 

6 7 8 54 10 

II 12 13 84 15 

WE CAN SUBTRACT THE 3RD R0W FR3M THE 2ND R0 W 
MO PUT THE RESULT IN THE 3RD R0W 

1 2 3 24 5 

6 7 8 54 10 

-5 -5 -5 -30 -5 

D0NE 
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We oan even change the size of the array during a program. In ARRAY4 
we begin with the original 3 by 5 array of ARRAY3 and tack on an extra row 
to enter the sums of the entries in the first three columns. Notice that in both 
ARRAY3 and ARRAY4 we are able to use G0SUB to save writing the printing 
routines more than once. 

You should begin to see that we have exactly the same control over the 
contents of an array that we do over the contents of a list. 

Now let us look again at our census program TCHB. There we used an 
8-row by 5-column array in which the first column simply contained the row 
number and the other four columns each contained tabulated results for a 
different item. We may now put the READ statement in a loop going from 2 
to 5 and let the loop variable determine the column in which the tabulation 
takes place. The other features of the program are procedures that we have 
used before. See TCHB+. 



ARRAY 4 


10 


LET A=l 


20 


FOR R=l T0 3 


30 


F0R C=l T0 5 


40 


LET AtR»C3 = A 


50 


LET A=A+1 


60 


NEXT C 


70 


NEXT R 


80 


PRINT "HERE IS THE 0RIGINAL ARRAY!" 


100 


F0R R=l T0 3 


110 


F0R C=l T0 5 


120 


PRINT ACR.CU 


130 


NEXT C 


140 


PRINT 


150 


PRINT 


160 


NEXT R 


168 


REM SET ALL ELEMENTS IN THE 4TH R0 W TO ZER0 


170 


F0R 1 = 1 TO 5 


180 


LET At 4, 11 = 


190 


NEXT I 


200 


PRINT "N0W WE HAVE THE 4 BY 5 ARRAYS" 


210 


G0SUB 500 


219 


REM THIS ROUTINE ADDS COLUMNS AND PUTS THE SUM IN THE 4TH 




R0W 


220 


F0R C=l T0 5 


230 


F0R R=l T0 3 


240 


LET AC 4.CJ = AC 4,C3 + AIR. CI 


250 


NEXT R 


260 


NEXT C 


2 70 


PRINT "THE FOURTH ROW CONTAINS THE SUMS OF THE FIRST 3 




ROWS." 


280 


G0SUB 500 


490 


STOP 


498 


REM **THIS IS THE PRINTING ROUTINE FOR THE 4 BY 5 ARRAY** 


500 


FOR R=l TO 4 


510 


FOR C=l TO 5 


520 


print acr.cjj 


530 


NEXT C 


540 


PRINT 


550 


PRINT 


560 


NEXT R 


570 


RETURN 


999 


END 
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RUN 
ARRAY 4 

HERE IS THE ORIGINAL ARRAY! 

12 3 4 5 

6 7 8 9 10 

11 12 13 14 15 

NOW WE HAVE THE 4 BY 5 ARRAY; 

12 3 4 5 



6 


7 


8 


9 


10 


1 1 


12 


13 


14 


15 


















THE F0URTH R0 w CONTAINS THE SUMS OF THE FIRST 3 R0WS. 
12 3 4 5 



6 


7 


8 


9 


10 


>> 


12 


13 


14 


15 


18 


21 


24 


27 


30 



D0NE 



TCHB+ 

10 F0R R=l T0 8 

14 REM HERE THE ROW NUMBER IS ENTERED IN THE FIRST COLUMN 

15 LET SCR. 1 ] = R 
20 F0R C=2 T0 5 
30 LET SCR, CJ = 
40 NEXT C 

50 NEXT R 

68 REM WE ARE ENTERING FIGURES IN COLUMNS 2 THROUGH 5 ONLY 

70 FOR C=2 T0 5 

80 READ N 

85 IF N = -l THEN 1 10 

88 REM N DETERMINES THE ROW NUMBER WHICH KEEPS TRACK OF N 

ITEMS 
90 LET SCN, C] = SCN»C3+1 
100 NEXT C 
105 G0T0 70 
110 PRINT "NUMBER. TVS. CARS. HOMES. BATHS" 

119 REM HERE THE RESULTS ARE PRINTED 

120 FOR R= 1 T0 8 
130 FOR C=l TO 5 
140 PRINT SCR.C3J 
150 NEXT C 

155 PRINT 

160 NEXT R 

349 REM EACH GROUP OF FOUR NUMBERS IS FOR ONE FAMILY- T. C. H. B 

350 DATA 1. 1, 1. 1,2. 1. 1.2. 3. 2. 1.2, 4. 3. 2.8. 4. 2. 1.5 
355 DATA 2, 1 , 1 , 3. 1 , 1 . 1 . 3. 2. 1 . 1 , 2, 1 , 1 . 1 . 1 . 2, 1 , 1 , 1 
360 DATA 2. 2, 2. 6, 1 . 1 , 1 . 4, 3. 4, 2, 6. 1 , 2, 1 , 2, 2, 2, 2, 8 
365 DATA 2. 1, 1.2,-1,0,0.0 

400 END 
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TCKEK 

NUMBER, TVS. CARS, H0MES, BATHS 

1 5 9 12 3 

2 7 5 4 5 

3 2 10 2 
■42101 

5 1 

6 2 

7 

8 2 

D0NE 



SUMMARY 

We may now use a powerful extension of the list concept, the array. An 
array may be thought of as an arrangement of numbers in which there are 
rows and columns. Numbers in an array may be accessed by designating the 
location by a double subscript such as H[3, 7] for the number in array named 
H which is located in the row numbered 3 and the column numbered 7. As 
you may have guessed, you will not need a DIMension statement as long as 
you do not exceed a subscript of [10, 10]. 



PROBLEMS FOR SEC. 5-2 

1) Print an array with 3 rows and 6 columns filled with O's. 

2) Print an array widi 6 rows and 3 columns filled with l's. 

3) Set up an array with 4 rows and 9 columns and fill it with random numbers 
from -999 to +999. Print the array. 

4) Fill the addresses along the top left to bottom right diagonal of a square 
7 by 7 array with l's and all other locations with O's and print the result. 

5) Fill two arrays of the same dimensions with random integers and print each 
array. Then fill a third array with the sums of the corresponding entries from the 
first two and print the result. 

6) Fill two arrays of die same dimensions with random integers and print each 
array. Then fill one of these two arrays with the sums of the corresponding entries 
from each array and print the result. 

7) Fill a 3 by 7 array with the integers through 20. Print that array. Then 
multiply each entry by the sum of the row number and the column number and 
print the result. 

8) Fill a 4 by 7 array with random integers from —500 to +500 and print the 
result. Then multiply each entry by 2 and print that result. Insert the printing 
routine using G0SUB. 

9) Fill a 10 by 10 array with the addition table. 

10) Fill n 10 hy 10 nrrnv with Hip mnlfiplirnHnn fnhle, 

11) Fill a 5 by 5 array with the addition table mod 5. Then have the computer 
generate addition problems with a random number function and find the sum by 
accessing the appropriate entry in the additon array. 

12) Do problem 11) for the multiplication table mod 5. 

v 13) Consider a questionnaire containing 10 questions with yes, no, or other as the 
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three possible answers. Generate random data and print the results in a 10 by 4 
array. Use the first column for the question number and the other three for yes, no, 
or other. Have the computer generate 50 questionnaires. 

5-3 A MORE DETAILED QUESTIONNAIRE ANALYSIS 

Consider a questionnaire submitted to four categories of people: male-21 or 
over, male— under 21, female— 21 or over, and female— under 21. On this ques- 
tionnaire there are 15 questions calling for yes-no answers. Our task is to 
present a tabulated summary of the data collected. We can provide sample 
data for say 10 people for the purpose of getting a first test RUN. Let us 
refer to this first problem and the program as SURVEY. The flowchart for 
SURVEY is drawn in Fig. 5-2. 

The first computer problem we run into is, how do we get 15 rows in an 
array? The answer is that we may dimension an array much the same as we 
dimensioned lists. In the array DIM (DIMension) statement, we must specify 



c 



Start 



Initialize 15 by 5 

array cols. 2-5 at 

Col. 1 to contain row no. 



F0R Q = 1 
T015 




PRINT 

headings 



PRINT 

array 



READ 
A 



c 



END 



NEXT Q ^ 



LET S[Q, P] 
= S[Q, P] + A 



Fig. 5-2. Flowchart lor program SURVEY. 
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two dimensions: one for rows and one for columns. We want an array with 15 
rows and 5 columns (4 for categories and 1 for the question numbers). DIM 
S[15, 5] will provide just such an array. 



DIM (TWO-DIMENSIONAL) 

DIM A[R, C] sets up an array designated as A with highest column 
number C and highest row number R. The statement is required if 
either R or C exceeds 10. Some computers require explicit integers, 
others allow variables in DIM statements. 



In our questionnaire problem, there are three things that we must keep 
track of: 1) the category of the respondent, 2) the question number, and 3) the 
response. We may organize the data and results according to Table 5-2. 

TABLE 5-2. CHART TO ORGANIZE SURVEY. 





A 


rray 


Code in 
DATA Line 


Column Number 




Use 


1 




Question number 


Position in line 


2 




Male 21 or over 


2 


3 




Male under 21 


3 


4 




Female 21 or over 


4 


5 




Female under 21 


5 



It will be easier to organize the data, if we reserve an entire data line for 
each person. Then we can put the category code (2 through 5) in the first 
location and the response (0 or 1) in the next 15 locations. A DATA line will 
look like this: 

XXX DATA 4, 1, 0, 1, 1, 1, 0, 0, 1, 1, 0, 1, 0, 1, 0, 1 

where the 4 indicates that the respondent is female and 21 or over, and the 
l's and 0's mean yes and no in response to the 15 questions. We could count 
the number of people in advance or use dummy data so that the printing can 
be done after all data is read. 



9 HEM DIM SC 15.53 SETS UP AN AWAY V.'I TH 'HIGHEST' LOCATION 
C 15.51 

10 DIM SC 15. 5) 
20 F3R R=l TO 15 

28 REM LINE 30 ENTERS THE i<0 iv NUMBER IN THE FIRST COLUMN 
30 LET SCR. 1 3 = K 
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40 FOR C = 2 TO 5 

48 REM LINE 50 SETS THE LAST 4 COLUMNS AT ZERO 

50 LET StR,C) = 

60 NEXT C 

70 NEXT R 

78 REM 80 READS THE CATEGORY FOR THE NEXT PERSON IM THE SURVFY 

8 READ P 

90 IF P=-l THEN 200 

98 REM Q GOES THROUGH THE 15 QUFSTIONS 

100 FOR 0=1 TO 15 

1 10 READ A 

120 LET SC0.P) = SCG,P3 + A 

130 NEXT 

138 REM LINE 140 SENDS THE COMPUTER BACK TO READ ANOTHER LINF 

OF DATA 
140 GOTO 80 

198 REM THE PRINTING BEGINS HERE 
200 PRINT "OUEST MALE MALE FEMALEFEMALE" 
210 PRINT "NUMBER 21+ U>JDER 21+ UNDER" 
220 FOR R=l T3 15 
230 FOR C=l T3 5 
250 PRINT SCR, CI; 
260 NEXT C 
270 PRINT 
280 NEXT R 

498 REM ***A LINE LIKE 500 MAY HELP TO LINEUP THE DATA LINES 

499 REM IN TYPING*** 

500 REM 1,1,1,1,1,1.1,1,1,1.1.1,1.1.1,1 

501 DATA 4,1,0,1,1.1,0,0,1,1,0,1,0,1.0.1 

502 DATA 4,1,0,0,0,0,1,1,0.1.1.0.0.0.1.1 

503 DATA 3.1,1,1,1,0,0,1,0,1,0.0.1.1.0.0 

504 DATA 5, 1, 1, 1.0.0,0, 1,0.0.0, 1, 1, 1, 1,0 

505 DATA 2,1,1,1,0,0,1,0,1,0,0,1,1,1.1.0 

506 DATA 5,0.0.1.0.1,0.0.0.1.1,1.0.0,1,1 
50 7 DATA 5,0.0.0.1.1.1.0,1.0.1.0,1.0,0.1 

508 DATA 2.0.0.1.1.0,0,1,1.0.1,0,1,0.0,1 

509 DATA 4,1.1,1,1,1,1.1.0.0.0.1.0.1.0,0 

510 DATA 2.1,1,0,0,1.0.1.0.0.0.0.1.1.1.1 
900 DATA - I 

9 99 END 

RUN 
SUKV/EY 

QUEST MALE MALE FEMALEFEMALE 
NUMBER 21+ UNDER 21+ UNDER 
12 13 1 

2 2 111 

3 2 12 2 

4 112 1 

5 10 2 2 

6 10 2 1 

7 2 12 1 

8 2 11 

9 12 1 

10 1 1 2 
111 2 2 

12 3 1 2 

13 2 1 2 1 

14 2 1 2 

15 2 2 2 



Notice in SURVEY that while there are four categories in the original 
problem, there are five additional categories generated by the conditions of the 
problem. They are male, female, under 21, 21 or over, and total. We may 
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further process the tabulated results after line 140 in SURVEY by totaling up 
the appropriate columns to get these latest categories tabulated. Of course, we 
will have to change the DIM statement to DIM S[15, 10]. This is done in 
SRVEY1. Study lines 145 through 190 carefully to assure yourself that the 
correct values are being tabulated there. 

There are many other results that we might try to find. There are other 



SRVEYl 

!0 DIM SC ! S„- ! 03 

20 FOR R=l TO 15 

28 REM LINE 30 ENTERS THE RO'a NUMBER IN THE FIRST COLUMN 

30 LET SCR. 1 D = R 

40 FOR C=2 TO 10 

48 r<EM LINE 50 SETS THE LAST 9 COLUMNS AT ZERO 

50 LET SCR,CJ=0 

60 NEXT C 

70 NEXT R 

78 REM 80 READS THE CATEG0RY FOR THE NEXT PERSON IN THE SURVEY 

8 READ P 

90 IF P = -l THEN 145 

98 REM GOES THROUGH THE 15 QUESTIONS 

100 FOR 0=1 TO 15 

1 10 READ A 

120 LET SCG,P) = SC0,P1 + A 

130 NEXT 

138 REM LINE 140 SENDS THE COMPUTER BACK TO READ ANOTHER LINE 

OF DATA 

140 G0T0 80 

145 FOR R=l TO 15 

150 LET SCR,63 = SCR,23 + SCR,33 

160 LET SCR, 7] = SCR»43 + SCR,53 

170 LET SCR,83 = SCR,3] + SCK, 53 

180 LET SCR.93 = SCR»21 + SC R, 43 

185 LET SCR, 103 = SC R, 63 + SC R, 71 

190 NEXT R 

198 REM THE PRINTING BE,GINS HERE 

200 PRINT "QUEST MALE MALE FEMALEFEMALE" 

210 PRINT "NUMBER 21+ UNDER 21+ UNDER MALE FEMALE UNDER 

21 + "; 

2 1 1 PRINT " TOTAL" 

220 FOR R=l TO 15 

230 FOR C=l TO 10 

250 PRINT SC R.C3; 

260 NEXT C 

270 PRINT 

280 NEXT R 

498 REM ***A LINE LIKE 500 MAY HELP TO LINEUP THE DATA LINES 

499 REM IN TYPING*** 

500 REM 1,1,1,1,1,1,1,1,1,1,1,1,1,1,1,1 

501 DATA 4,1,0,1,1,1,0.0,1.1,0,1,0,1,0.1 

502 DATA 4,1,0,0,0,0,1,1,0,1,1,0.0,0,1.1 

503 DATA 3.1.1.1,1,0,0,1,0,1,0,0,1,1,0,0 

504 DATA 5,1,1,1,0,0,0,1,0,0.0,1,1.1,1,0 

505 DATA 2,1,1,1,0,0,1,0,1.0,0,1,1,1,1,0 

506 DATA 5,0,0.1.0.1.0,0,0.1.1,1,0,0,1,1 

507 DATA 5.0,0,0,1,1,1,0,1,0,1,0,1,0,0,1 

508 DATA 2,0,0,1,1,0,0,1,1,0,1,0,1,0.0.1 

509 DATA 4,1,1,1,1,1,1,1,0,0,0,1,0,1,0.0 

510 DATA 2.1.1.0.0.1.0,1,0,0,0,0,1,1,1,1 
900 DATA -1 

999 END 
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SRVEY1 




















QUEST 


MALE 


MALE 


FEMALEFEMALE 












NUMBER 


21 + 


UNDER 


21 + 


UNDER 


MALE 


FEMALE 


UNDER 


21 + 


T3TAL 


1 


2 


1 


3 


1 


3 


4 


2 


5 


7 


a 


2 


1 


1 


I 


3 


2 


2 


3 


5 


3 


2 


1 


2 


2 


3 


4 


3 


4 


7 


4 


1 


1 


2 


1 


2 


3 


2 


3 


5 


b 


1 





2 


2 


1 


4 


2 


3 


5 


6 


i 





2 


1 


1 


3 


1 


3 


4 


7 


2 


1 


2 


1 


3 


3 


2 


4 


6 


8 


2 





1 


1 


2 


2 


1 


3 


4 


9 





1 


2 


1 


1 


3 


2 


2 


4 


10 


1 





1 


2 


I 


3 


2 


2 


4 


11 


1 





2 


2 


1 


4 


2 


3 


5 


12 


3 


1 





2 


4 


2 


3 


3 


6 


13 


2 


1 


2 


1 


3 


3 


2 


4 


6 


14 


2 





1 


2 


2 


3 


2 


3 


5 


15 


2 





2 


2 


2 


4 


2 


4 


6 



D0NE 



totals that could be tabulated. At the time P is read, we could total the 
number of people in each of the original four categories and enter these 
totals in row 16. Then we could compute averages. There are numerous ratios 
that we could evaluate. We could have the computer generate random data to 
get larger numbers in the printed result. That would require random integers 
2 through 5 for P in line 80 and random or 1 in line 110 for the yes-no 
responses. 



SUMMARY 

We see that the two-dimensional array permits tremendous flexibility. We 
may determine its size exactly. The array serves as a vast storage area for 
large amounts of data or tabulated results. We may process the contents of 
an array and enter results in other parts of the same array with tremendous 
maneuverability. 

The DIM statement may be used to specify subscripts greater than 10 in 
the two-dimensional array much as it was used for lists. 



PROBLEMS FOR SEC. 5-3 

1) Modify SURVEY to handle 75 questionnaires with random data. 

2) Modify SRVEY1 to tabulate the totals discussed with that program in the 16th 
row of the S array. 

3) Modify SURVEY to handle yes, no, and other as possible answers. Create 
three arrays: one for yes, a second for no, and a third for other responses. Use 
random data and 50 questionnaires. 

4) Modify SRVEY1 to generate random data for 50 questionnaires. 

5) Modify SRVEY1 to tabulate the results as percentages of the total number of 
yes responses. Do not create a second array. 
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6) Fill an array with the multiplication table up to 12 X 12, and print the last 
three rows. 

•J 7) In a 12 by 12 array enter all l's in the upper left to lower right diagonal and 
the left-most column, and all O's elsewhere. Then beginning in the third row, second 
column, enter the sum of the entry in the same column of the row immediately 
above and in the column one to the left and the row immediately above, through 
the 12th row, 11th column. Print the result. 



CHAPTER 6 



Specific Applications 



6-1 EUCLIDEAN ALGORITHM 

In Chap. 4 when we first reduced common fractions to lowest terms, even 
though the computer did the work, it was done the hard way. 
For two integers N and D, 

N/D = I + R/D 
or N = I " D + R 

where I is the integer quotient and R is the remainder. If we successively 
divide the remainder into the previous divisor until the remainder is 0, the last 
divisor is the greatest common factor. This will always happen, even for 
mutually prime pairs, as the last divisor will be 1. 
Let us see what hap s for 13398 and 7854. 

N = I°D4 

13398 = (1)[7854] + (6-1) 

7854 = (1)[5544] + 2310 (6-2) 

5544 = (2)[2310] + 924 (6-3) 

2310 = (2)[ 924] + 462 (6-4) 

924 = (2)[ 462] + (6-5) 

According to Euclid the greatest common factor of 13398 and 7854 is 462, be- 
cause 462 was the divisor when the remainder was 0. Indeed 13398 = 29 ° 462 
and 7854 = 17 * 462. That took only five tries. How many would it have taken 
using the old method? Now all we have to do is figure out why it works. 

Look carefully at Eq. (6-5). 924 is divisible by 462 because the remainder 
is and is divisible by any nonzero number. This remainder is the key to 
the entire proposition. Now look at Eq. (6-4). Since 924 is divisible by 462, so 
is (2)[924] + 462, which makes 2310 divisible by 462. Now look at Eq. (6-3). 

91 
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Since 2310 and 924 are both divisible by 462, so is 5544. This makes 7854 
divisible by 462, which in turn makes 13398 divisible by 462, which is the 
original contention. The argument we have just presented is hardly a proof of 
the Euclidean algorithm, but it should be convincing. 

Now, how do we get the computer to carry out this process? First, from 
Eqs. (6-1) through (6-5) we should see that we have simply taken the old 
divisor D and made it the dividend and the old remainder R and made it the 
divisor. So we will get the computer to LET N = D and LET D = R after we 
look at the remainder to see if it is 0. If the remainder is 0, we direct the 
computer to print the last divisor as it is the greatest common factor. 

Now we should be able to draw the flowchart (Fig. 6-1) and write the 
program C0MFAC. 




END 



LET N = D 



LETD = R 



A 



Fig. 6-1. Flowchart for using Euclidean algorithm for program C0MFAC. 
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C0MFAC 



10 PRINT "N»D"J 

20 INPUT N»D 

35 IF N = THEN 120 

28 REM FIND THE INTEGER QUOTIENT 

30 LET I = INTCN/D) 

38 REM FIND THE REMAINDER 

40 LET R=N-I*D 

48 REM IF THE REMAINDER IS ZER0 THEN D IS THE G,C.F. 

50 IF R=0 THEN 90 

58 REM R WAS N0T ZER0» S0 WE ITERATE 

60 LET N=D 

70 LET D=R 

80 60 T0 30 

90 PRINT "G.CF. ="ID 

100 PRINT 

110 G0T0 10 

120 END 

RUN 

C0MFAC 

N,D?13398»922251 
G.CF. = 33 

N,D?741279»922251 
G.CF. = 33 

N>D? 13398. 7854 
G. C.F. = 462 

N»D?991» 199 
G.CF. = 1 

N.D7272851.246156 
G.CF. = 281 

N, D?0, 

D0NE 

PROBLEMS FOR SEC. 6-1 

1) Write a program to add fractions given the numerators and denominators. 
Print the sum reduced to lowest terms. 

2) Do problem 1) for multiplication. 

y 3) INPUT two pairs of coordinates. Have the computer find the slope and the 
Y-intercept of the straight line containing the points and print the results as rational 
numbers reduced to lowest terms. If the result is negative, have the numerator be 
the negative number. 

4) As a project, write a program to factor quadratic expressions with integer 
coefficients. Be sure to allow for coefficients and factor out greatest common 
factors of all three coefficients. 



6-2 CHANGE BASE 

In this section we are going to develop a program to convert base-10 
numbers to base-2 numbers. You will recall that for base-2, only the digits 
and 1 are permitted and each digit represents a power of 2 instead of 10. 
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One of the widespread uses for base-2 numbers is in computers themselves. 
This is because in base-2, all number m?v he "■^nro^roA u v ~ r. a » „r „...-•*„!.,.,, 
with being off and 1 being on. 

One difficulty that we quickly encounter is that whatever the digit capacity 
of the computer we have access to, that number of digits provides a much 
smaller number in base-2 than it does in base- 10. We will use up to six digits 
in the base-10 number for our program. In base-2 100000 is only 32 
base-10 and 



11111, 


= l^^O 


or 


1 




+ 1 * 2 " " .1 


or 


+ 2 




+ 1 *2 00 2 


or 


+ 4 




+ 1 °2 00 3 


or 


+ 8 




+ l »2 00 4 


or 


+ 16 




+ 1 , 2"5 


or 


+32 



63 10 

which we could handle ,asily with pencil and paper. Clearly, we are going 
to have to work with more than six digits in base-2. 

Let us assume that we can provide for as many digits as are needed. How 
many digits do we need to represent the base-10 number 999999 in base-2? 
We could write a program that would give that information, but we can also 
figure it out ourselves. We can begin with 2 ° ° 5. 



2°°5 = 


32 


2 08 10 = 


32 00 2 =1024 


2 oo 20 = 


1024 '" 2 = 1048576 



So, if we provide for up to 2 "" 20, we can handle six-digit integers with 
room to spare. We know how many digits we need, now we have to figure 
out how to make the conversion. 

Let us run a sample conversion before we attempt to write the program. 
We use 149 base-10 here. First find the greatest integer Dower of 2 that is 
less than 149. It is 2 "" 7 or 128. 

149/2 •• 7= 1 + 21/2 "7 

or 149= 1° (2 " 7) + 21 (6-6) 

(6-7) 

(6-8) 

(6-9) 

(6-10) 

(6-11) 

(6-12) 

(6-13) 

By successive substitution we see that 



149 = 


: 1»(2<">7) + 21 


21 = 


:0°(2 oo 6) + 21 


21 = 


:0°(2°°5) + 21 


21 = 


1 °(2°°4)+ 5 


5 = 


o (2 oo 3)+ 5 


5 = 


1°(2 00 2)+ l 


1 = 


0'(2"1)+ 1 


1 = 


1 °(2 00 0)+ 
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149= 1°(2 00 7) 
+ 0°(2 oo 6) 
+ 0°(2 oo 5) 
-r-l°(2 0O 4) 
+ o (2 o,> 3) 
+ l o (2 00 2) 
+ 0°(2 o,> 1) 
+ l o (2 oo 0) 

So that 

149 10 = 10010101 2 

Equation (6-6) may be written in general as 

N = I • (2 "° E) + R 

where N is the number, I is the integer quotient, E is the exponent on the 
base-2, and R is the remainder after integer division. Therefore 

I = INT(N/(2 " E) 

and, solving for R we get 

R = N-I°(2 00 E) 

Now, looking at Eqs. (6-6) through (6-13) we see that we have an iterative 
process in which the new number is to be the old remainder and the exponent 
on the base-2 is reduced by 1 until it gets to 0. This looks like a loop in which 
the loop variable is the exponent on the base-2 and stops at 0. Where does it 
start? Earlier we decided that the greatest exponent on 2 could be 20. Now 
we should be able to assemble our problem into a flowchart (Fig. 6-2). 



10 


HEAD N 










20 


PRINT N; "BASE TEN = "; 










30 


FOR E = 20 TO STEP -1 










40 


LET I=INTCN/2rE> 










50 


PRINT I; 










60 


LET K=N-I*2'E 










70 


LET N = R 










80 


NEXT E 










85 


PRINT "BASE TWO" 










86 


PRINT 










90 


GOT0 10 










100 


DATA 999999.. 1,16 










1 10 


END 










RUM 












BASE 










999999. BASE TEN = 


1 


1 1 


1 


1 





10 





1 


1 1 


1 1 



BASE TWO 



§§. BmiD-9&StC 



( 

/ 


Start 

■Sp- 
read 

N 


) 

/ k 


Fig. 6-2. Flowchart for conversion 
from base-10 to base-2. 


/ 


PRINT 

M 
IN 








/ 


F0R E = 20 
T0 STEP — 1 


k 


LETI 

= INT(N/2**E) 


/ 

/ 


/ ' 


r 






/ PRINT / 

/ '= / 












LETR 

= N~I*2**E 












NEXT E 


i 


LET N = R 




% 



1 BASE TEN = 00000000 

00000001 

BASE TWO 

16 BASE TEN =0 00 000 

OOOIOOOy 

BASE TWO 

OUT OF DATA IM LINE 10 

Looking carefully at the printed results in BASE, we can see that 16 base-10 
does equal 000000000000000010000; however it is difficult to sort that out. 
Printing the variable I is controlled by semicolon spacing which will not place 
one-digit numbers in adjacent spaces. We can however, get the digits next to 
each other by printing them explicitly. If we say PRINT "1"; the next printed 
character will be printed in the next space. So, instead of 50 PRINT I; we 
insert 



45 IF 1=1 THEN 55 
50 PRINT "0"; 
52 G3T0 60 
55 PRINT "1"; 
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and call for a RUN: 

RUN 
BASE-2 

999999. BASE TEN =01 1 1 1 1 0000 1 000 1 ! ! 1 1 I BASE TWO 

I BASE TEN =000000000000000000001 BASE TWO 

16 BASE TEN =000000000000000010000 BASE TWO 

0UT OF DATA IN LINE 10 

By not worrying too much about the fact that we were going to require a 
large number of digits, we have succeeded in printing numbers with 21 digits. 
Quite often in programming, as in any problem-solving situation, you will 
solve seemingly impossible problems by emphasizing those things that you 
can do rather than holding back because of all the things you think that you 
will be unable to handle. 

Let us reassemble the program as it now stands in BASE-2 and insert 
another set of data just to see a few more results. 



BASE-2 


10 


READ N 


20 


PRINT N;"BASE TEN ="; 


30 


FOR E=20 TO STEP -1 


40 


LET I=INT(N/2tE) 


45 


IF 1=1 THEN 55 


50 


PRINT "0"J 


52 


GOTO 60 


55 


PRINT "l"; 


60 


LET R=N-I*2tE 


70 


LET N=R 


80 


NEXT E 


85 


PRINT " BASE TWO- 


86 


PRINT 


90 


GOTO 10 


100 


DATA 999999.. 1.16 


1 10 


END 


100 


DATA 45.9875, 123456 


RUN 




BASE-2 



45 BASE TEN =000000000000000101101 BASE TWO 
9875 BASE TEN =00000001001101001001! BASE TWO 
123456. BASE TEN =000011110001001000000 BASE TWO 

OUT 0F DATA IN LINE 10 

Of course we really are not finished with the program yet. We should 
eliminate the leading O's. Then the printed results will be in more familiar 
form. This is left as an exercise. 
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PROBLEMS FOR SEC. 6-2 



1) Eliminate the leading O's in BASE-2. Be careful not to eliminate all O's. 

2) Write a program to convert base-2 numbers to base-10. It may help to put 
tile digits' of the base-2 number in a list. 

3) Write a program to add two numbers in base-2. 

4) Have the computer convert numbers in base-10 to base-3. 

J 5) Write a program to convert from base-10 to base-12. It is conventional to use 

T for 10 and E for 11 in base-12. 

/ 6) Have the computer convert base-3 numbers to base-2. 

/ 7) Write a program to convert base-10 numbers to any base up to 12 with the 

base determined from data. 



6-3 LOOKING AT INTEGERS DIGIT BY DIGIT 

In general, the more control we have over a number in the computer, the 
more complex the problems we might expect to be able to handle. So, for the 
purpose of learning to control a number in the computer digit by digit, let us 
write a program to take the digits of an integer and print them one at a time. 

Consider the number 8394. The 8 means 8 thousand which may be written 
8 ° 10 °° 3; the 3 means 3 hundred which may be written 3 ° 10 " 2; the 9 
means ninety which may be written 9 ° 10 °° 1; and the 4 means four which 
may be written 4 ° 10 °° 0. Looking at the numbers step by step, 

8394 = 8° 10 °° 3 + 394 

394 = 3" 10°° 2 + 94 

94 = 9° 10°° 1+ 4 

4 = 4°10 oq 0+ 

This is an example of the general relationship 

N = I ° 10 oo E + R 
where I is the integer quotient found by 

I = INT(N/10 oo E) 

and an iterative process whereby the new N is the old R and the value of E 
is decreased by 1 for each iteration. Solving for R we get 

R = N-I° 10 "VE 

All of this should begin to look familiar. 

For six-digit integers the value of F, will b:ivp to l-ipjrin ^r S mid m, t,_, 
STEP — 1. Carefully study program DIGIT and you will see that we have 
indeed broken integers into their separate digits. However, as always, we should 
look for ways to improve our programs. One change that will save a little paper 
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DIGIT 



10 


PRINT "INPUT ANY INTEGER 


aa 


INPUT N 


30 


IF N=0 THEN 999 


40 


FOK E=5 T0 STEP - 1 


so 


LET I=INT<N/10'E> 


60 


PRINT I 


70 


LET R=N-I*10«E 


80 


LET N = K 


90 


NEXT E 


100 


PRINT 


1 10 


GO TO 10 


999 


END 


HUN 




DI GIT 



INPUT ANY INTEGER7123456 



INPUT ANY INTEGER7819045 



INPUT ANY INTEGER753627 

5 
3 
6 
2 
7 

INPUT ANY INTEGEK70 

DONE 



would be to print the digits across the page with semicolon spacing. We can 
do that by changing line 60 to read 60 PRINT I; and call for a RUN. 



60 PRINT I; 

RUN 

DIGIT 

INPUT ANY INTEGER? 123456 

12 3 4 5 6 

INPUT ANY INTEGER7975432 

9 7 5 4 3 2 

INPUT ANY INTEGER7S3627 

5 3 6 2 7 

INPUT ANY INTEGER70 



DONE 
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Now let us see the program with the change and try another number. 
(See DIGIT!.) 



DIGI 


Tl 


10 


PRINT "INPUT ANY INTEGER"! 


20 


INPUT N 


30 


IF N=0 THEN 999 


40 


F0R E=5 TO STEP - 1 


50 


LET I=INT(N/10'E) 


60 


print n 


1 Kt 


LET R=N-I*10»E 


80 


LET N = R 


90 


NEXT E 


100 


PRINT 


1 10 


GOTO 10 


999 


END 


RUN 




DIGIT1 



INPUT ANY INTEGER?666666 

6 6 6 6 6 6 
INPUT ANY INTEGER?0 

DONE 

One last consideration is that we might want to eliminate the leading O's. 
We leave this as an exercise. 

PROBLEMS FOR SEC. 6-3 

1) Eliminate the leading O's in DIGIT. Be careful not to eliminate all zeroes. 

2) Test integers for divisibility by 3 by summing the digits. 

3) Construct the integer formed by reversing the order of the digits in an INPUT 
integer. Print the result as an integer. 

/ 4) Test integers with the integer formed by reversing the order of the digits to 
find the greatest common factor. 

J 5) Find all three-digit integers that are prime. Form new integers by reversing 
the digits and see if the new number is also prime. Print a number only if it and 
its reverse number is prime. There are 43 pairs of numbers, some of which will 
appear twice. You should pay particular attention to efficiency in this problem. 



CHAPTER 7 



Strings and Files 



7-1 INTRODUCTION TO STRINGS 

To a BASIC programmer, a string is a set of characters. We use strings every 
time we print a message by enclosing it in quotes in a PRINT statement. BASIC 
provides the ability to save strings in a special string variable, identified by 
using a trailing dollar sign ($). We may use A$, B$, etc., to designate string 
variables. Some computers allow Al$, B8$, etc., and some allow A$(R,C) to 
designate string arrays. The use of strings enables us to process alphabetic data, 
such as names and addresses, and descriptive data of all kinds. 

We may work with string variables in many of the ways that we do with 
numeric variables. For instance, in BASIC programs we may use such state- 
ments as 



100 LET AS = "FIRST" 

100 READ AS* BS 

100 INPUT AS, BS 

100 PRINT AS, BS 



Iii order to READ A$, B$, we must provide a corresponding DATA state- 
ment. Some systems require all strings in DATA statements to be enclosed in 
quotes. Others require quotes only when the string contains a comma or 'looks 
like' a number. For PRINT A$, B$, the output will have "comma spacing." That 
is, the page will be arranged in 15-eharacter columns. If we replace the comma 
with a semicolon, the two strings will be printed with no space between them. 

We will use a short program named FIRST$ to demonstrate LET, READ, 
INPUT, and PRINT. 

101 
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FIRSTS 


95 


REM * FIRST STRING PR0GRAM 


96 


REM 


100 


LET AS = "THIS IS A" 


110 


READ BS, CS 


120 


PRINT ASJ " "J BSJ " "J CSJ 


130 


INPUT DS 


140 


PRINT 


150 


PRINT ASJ " "J BSJ " "J CSJ " "J DS 


155 


REM 


160 


DATA "PR0GRAM T0"» "DEMONSTRATE" 


170 


END 


RUN 




FIRSTS 



THIS IS A PROGRAM T0 DEM0NSTRATE7STRINGS 
THIS IS A PROGRAM T0 DEMONSTRATE STRINGS 

BASIC allows us to compare strings for order in accordance with a sequence 
known as ASCII (American Standard Code for Information Interchange). For 
strictly alphabetic strings, this code will alphabetize in the conventional order. 
ASCII places the digits through 9 ahead of the letters of the alphabet. We 
can easily write a short program to demonstrate order comparison. See ORD$. 

0RDS 

95 REM * COMPARES STRINGS FOR ORDER 

100 PRINT 

110 PRINT "A$"J 

120 INPUT AS 

130 IF AS = "STOP" THEN 240 

140 PRINT "BS"I 

150 INPUT BS 

160 IF AS < BS THEN 220 

170 IF AS = BS THEN 200 

180 PRINT ASJ " IS GREATER THAN "J BS 

190 GOTO 100 

19 5 REM 

200 PRINT ASJ " IS EQUAL T0 "J BS 

210 GOTO 100 

215 REM 

220 PRINT ASJ " IS LESS THAN "J BS 

230 GOTO 100 

240 END 

RUN 

0RDS 

A$?WHAT'S THIS 
BS?WHAT'S THAT 
WHAT'S THIS IS GREATER THAN WHAT'S THAT 

A$?WHAT'S THIS 
BS7WHAT'S WHAT 
WHAT'S THIS IS LESS THAN WHAT'S WHAT 

AS?WHAT'S WHAT 
B$?WHAT'S WHAT 
WHAT'S WHAT IS EQUAL TO WHAT'S WHAT 

AS7ST0P 

In the handling of strings, we find that different computers have significantly 
different BASIC language definitions. For example, on one computer, the state- 
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ment 100 PRINT A$(4) will cause the computer to output the character string 
stored in string variable A$, beginning with the fourth character, whereas on 
another, the same statement will cause the computer to output the fourth string 
of the string list A$. It is because of these differences that we present two dis- 
tinctly different schemes for handling strings in the next two sections. 

7-2 STRINGS-THE SUBSTRING SCHEME 

In the substring scheme, strings may be considered as a complete entity by 
referring to A$, B$, etc., or we may consider segments of A$ by using one or 
two subscripts. A$(I) specifies the segment beginning with the I th character and 
continuing to the end of the string. A$(IJ) [some computers using this scheme 
may require A$(I:J)] specifies the segment from the I th character through the 
J th character inclusive, provided I === J. If I = J, then A$(IJ) is a single char- 
acter. This scheme does not provide for string arrays. (It has been extended on 
some computers, however, by using A$(I;J,K), where the I designates which 
string in the single dimension array is referred to and the J,K pair designates 
the segment from the T th through the K th character.) 

As with arrays, it is necessary to specify the capacity of any string variable 
we intend to use (for more than one character) in a DIMension statement, Thus, 
100 DIM A$(10),B$(16),C(2,11) provides for up to 10 characters in A$, up to 
16 characters in B$, and two rows and 11 columns in a numeric array C. The 
C dimensioning is included here merely to demonstrate that string and array 
dimensioning may be intermixed in a single statement. The LEN( ) function is 
provided to count the number of characters actually stored in a string. LEN(Z$) 
takes on the value of the number of characters stored in string variable Z$. 

In program SEG$1, note the dimensioning in line 100, the use of the LEN( ) 
function in lines 140 and 150, and the printing of segments in line 160. 

SEGSl 



95 


REM * DEM0NSTRATES STRING SUBSCRIPTS 


100 


DIM ASC8I 


110 


READ AS 


120 


IF AS="ST0P" THEN 210 


130 


PRINT "AS="JA$ 


140 


PRINT "LEN<AS)="JLEN<A$) 


150 


F0R 1=1 TO LENCAS) STEP 2 


160 


PRINT "ASC") 1 1","} I+H")="5A$CI, 1+ 1 


17 


NEXT I 


180 


PRINT 


190 


GOTO 110 


195 


REM 


200 


DATA " ABC DEF", "BASIC". "STOP" 


210 


END 


;:un 




SEGSl 


AS=ABCDEF 


LEN(AS) = 6 


ASC 


1 , 2 )=AB 


ASC 


3 , A )=CD 


ASC 


5 . 6 )=EF 



n 



The programs of this section wore run on a Hewlett-Packard computer. 
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A$=BASIC 




LENCAS) = 5 




A$< I , 2 


)=BA 


ASC 3 , A 


) = SI 


AS( 5 » 6 


> = C 



The ability to isolate a segment of a string has many uses. We may wish to 
pack related information into a single string such as 

100 LET D$ = "JANFEBMARAPRMAYJUNJULAUGSEP0GTN0VDEC" 

Now we, may select the desired month according to its position in D$. Or, we 
might want to use a single string to contain the names of a group of individuals, 
last name first, but to print only the last name and first initial. 

One common use of string segments is to format numbers in printed results. 
For instance, the appearance of the output produced by program SEG$1 could 
be improved by using string output to print I and I + 1 in line 160. See lines 
110 and 160 in program SEG$2. Notice the compact appearance of the printed 
result there. 

SEGS2 

95 REM * PRINTING A SINGLE DIGIT NUMERIC 

96 REM USING STRING 0UTPUT 
100 DIM ASC8I.DSC.9I 

110 LET DS="123456739" 

120 READ AS 

130 IF AS="ST0P" THEN 210 

140 PRINT "AS=";A$ 

150 FOR 1=1 T0 LENCAS) STEP 2 

160 PRINT "A$( n lD$[I»I])"."iDS[H-l,ItlJ! ,, ) = "iAJU.IHl 

170 NEXT I 

180 PRINT 

190 G0T0 110 

195 REM 

200 DATA "ABCDEF'S "BASIC". "STOP" 

210 END 

RUN 

SEGS2 

A$=ABCDEF 
ASC1»2)=AB 
A$C3#4)=CD 
ASC5»6)=EF 

A$=BASIC 
A$C1»2)=BA 
AS<3»4) = SI 
ASC5»6)=C 

We see in SEG$2 the beginning of a technique for printing a numeric using 
string output. Obviously missing are the ability to print zero and the ability to 
handle more than one digit. We can take care of zero by using LET D$ = 

"rnno^eoTon" 1 *. .•„!..•„« L ~£ j.t -l_-„..*i_ _• i.l__±. 

use the technique of program DIGIT in Sec. 6-3. That is, we must isolate the 
digits of our number one at a time. Once we have the digit to be printed stored 
in I, we must print D$(I + 1,1 + 1) since zero is the first digit in D$. This step 
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is taken in program DIGIT2. The numeric output is placed between # signs, 
and the string output is placed between $ signs. 



DIGIT2 


95 


REM * PRINTING A NUMERIC 0F MORE 


96 


REM THAN 0NE DIGIT USING STRING 


97 


REM OUTPUT 


100 


DIM DSC10I 


110 


LET D$="0123456789" 


120 


PRINT "INPUT ANY INTEGER"! 


130 


INPUT N 


1-40 


IF N=0 THEN 260 


150 


PRINT "#"JNJ"#" 


160 


PRINT "$"J 


170 


FOR E=5 T0 STEP -1 


180 


LET I=INTCN/10tE) 


190 


PRINT D$CI+l»I+m 


200 


LET R=N-I*10tE 


210 


LET N=R 


220 


NEXT E 


230 


PRINT "$" 


240 


PRINT 


250 


G0T0 120 


260 


END 


RUN 




DI6IT2 



INPUT ANY INTEGER793617 
# 93617. # 

$093617$ 

INPUT ANY INTEGER70 

It is left as an exercise to eliminate the printing of the leading zero in the 
output of DIGIT2. 

SUMMARY 

We have used strings to store nonnumeric data. Any string may be con- 
sidered in its entirety, or any segment may be isolated using subscripts. A$(IJ) 
designates the substring from the I th to the J ' characters, inclusive. By placing 
the ten digits in a dummy string, we gain complete control over the printing 
of numerics by using string output. 

PROBLEMS FOR SEC. 7-2 

1) Write a program to print the characters of a string in reverse order. 

2) Eliminate leading zeros in the output of DIGIT2. Be careful not to eli- 
minate all zeros. 

3) Write a program to arrange the characters of a string in order using the 
technique of program ARANG5 of Sec. 4-4. 

4) Use string formatting to print the output in problem 7 of Sec. 6-2. 

5) Write a program to convert a string integer to a numeric. 

7 6) Write a program to convert a numeric input to a string output if the nu- 
meric input is allowed to contain a decimal point and be negative. 
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7-3 THE STRING ARRAY SCHEME" 

In the string array scheme, A$(I) names the string stored in the position 
numbered I of a string single-dimensioned array, and A$(IJ) names the string 
stored in row I and column J of a string two-dimensional array. As with arrays 
used elsewhere, a DIMension statement is required if we intend to have either 
subscription exceed 10. The maximum number of characters which may be 
stored in any one array position varies from computer to computer but ranges 
from 6 to the thousands. 

We may do many things with string arrays that we do with numeric arrays. 
We may READ, PRINT, INPUT, assign, and compare for order elements of 
the array. We may even be able to use the statement LET A$ = "XYZ" + 
"ATV" to assign "XYZATV" to A$. 

DAY SOI 

tOO DIM WS<7) 

105 

108 REM * READ DAYS 0F THE WEEK 

110 F0R I = 1 T0 7 

120 READ WSCI) 

130 NEXT I 

135 

138 REM * PRINT DAYS 0F THE WEEK 

140 F0R I = 1 T0 7 

150 PRINT I; WSCI) 

160 NEXT I 

165 

168 REM * DATA 

170 DATA SUNDAY. M0NDAY, TUESDAY. WEDNESDAY 

180 DATA THURSDAY. FRIDAY. SATURDAY 

190 END 

RUN 

1 SUNDAY 

2 M0NDAY 

3 TUESDAY 

A WEDNESDAY 

5 THURSDAY 

6 FRIDAY 

7 SATURDAY 

Suppose we wish to work with the days of the week. We can easily read the 
names of the days of the week into an array. Then these names can be printed 
later as labels whenever needed, as shown in program DAYSOl. 

It is useful to be able to manipulate data in string variables. We might want 
to know the number of characters in one of them, for example. There are two 
ways to find out. One is to use the LEN function. LEN(A$) returns the number 
of characters in A$. Another is to use the CHANGE statement. CHANGE A$ 
T0 A stores the number of characters in A$ in A(O), converts each of the char- 
acters in the string A$ to a numeric equivalent code, and then stores that nu- 
meric in a corresponding position of the one-dimensional A array. The code 

_ „ ,1 r „ . l. .- „ - _ a pnTT / a . , „ ..; .. . . o ■ . _ J , .. J /-< , l „ r . .. t . r i ■ t . . i .. \ 

uacu xui una is njuix ^riinci icuu a Ltuiucu u uuuc iui xuiuniiciuuii iiiiciCiicuigc/. 

CHANGE A T0 A$ makes the conversion in the opposite direction. This can 



° The programs of this section were run on the General Electric Information Services 
time sharing system. 
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CHANGE 


98 


REM * DEM0NSTRATE CHANGE STATEMENT 


100 


DIM A<30)»BC1) 


110 


PRINT "STRING"* 


120 


INPUT AS » 


130 


CHANGE AS T0 A 


140 


PRINT LENCAS)J "CHARACTERS IN ■ "S AS. 


150 


PRINT 


160 


LET BCO) = 1 


170 


PRINT "CHAR ASCII C0DE" 


180 


F0R I = 1 TO ACO) 


190 


LET B<1) = ACI) 


200 


CHANGE B T0 BS 


210 


PRINT "'"J BSJ "• "1 ACI) 


220 


NEXT I 


230 


END 


RUN 




STRING? TRY THIS 


8 CHARACTERS IN "TRY THIS' 


CHAR 


ASCII CODE 


■ T t 


84 


•R* 


82 


tyi 


89 


• • 


32 


•T* 


84 


•H* 


72 


•I' 


73 


•S« 


83 



probably best be demonstrated with a program. See especially lines 130 and 
200 of program CHANGE. 

Notice that it required four statements to extract the I th character of A$. 
In program CHANGE, we used statements 130, 160, 190, and 200 to do this. 
The EXT$ function is available for just this purpose. EXT$(A$,IJ) extracts the 
group of characters beginning with I and ending with J for string A$. Some 
computers use SEG$ for this. Using EXT$, program CHANGE becomes 
CHANGF. 

CHANGF 

98 REM * DEMONSTRATE CHANGE STATEMENT 

100 DIM A<30) 

110 PRINT "STRING"* 

120 INPUT AS 

130 CHANGE AS T0 A 

140 PRINT LENCAS)J "CHARACTERS IN * "J A$J 

150 PRINT 

170 PRINT "CHAR ASCII C0DE" 

180 F0R I = 1 T0 ACO) 

210 PRINT "'"J EXTSCA$,I»I)J J A(I) 

220 NEXT I 

230 END 
RUN 

STRING? #!4+:3 
6 CHARACTERS IN •#!&+:]• 

CHAR ASCII C0DE 

'»' 35 

•!• 33 

•&• 38 

• + • 43 

•:• 58 

•]• 93 
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We may form strings from the characters of strings in some rearranged se- 
quence. We might print a string backwards or with the characters in alphabetic 
order. In order to arrange the characters of a string in alphabetic order, we can 
simply provide a one-dimensional array with the corresponding ASCII code 
numerics in increasing order. Program ORDER$ does exactly this. 

ORDERS 

100 DIM AC100) 

110 PRINT "AS"J 

120 INPUT AS 

130 PRINT 

140 CHANGE AS T0 A 

150 F0R I = 1 T0 ACQ) - 1 

160 F0R J = I + 1 T0 ACQ) 

170 IF ACI) <= ACJ) THEN 210 

175 REM * EXCHANGE BUT 0F 0RDER CODES 

180 LET S = ACI) 

190 LET ACI) = ACJ) 

200 LET ACJ) = S 

210 NEXT J 

220 NEXT I 

230 CHANGE A T0 AS 

240 PRINT AS 

250 END 

RUN 

AS? WHAT IF I CAN'T THINK 0F SOMETHING? 

•7AACEFFGHHHIIIIKMNNN00STTTTW 



SUMMARY 

Whenever subscripted array string variables may be used, A$(I,J) specifies 
the string stored in row I, column J. We may use CHANGE A$ T0 A to con- 
vert the characters in the string variable A$ to the equivalent ASCII code 
numerics in corresponding positions of the A array. We may also reverse this 
process by using CHANGE A T0 A$. We also find the number of characters 
in A$ stored in A(O). Alternatively, we may use the LEN function. We may 
extract a group of characters with the EXT$(A$,I,J) function. This may be im- 
plemented as SEG$. 

We may assign, PRINT, INPUT, and READ string variables in much the 
same way that we handle these operations with numeric variables. Strings may 
be placed in DATA statements, and string arrays must be DIMensioned if a 
subscript is to exceed 10. 

PROBLEMS FOR SEC. 7-3 

1) Write a program to print the characters of a string in reverse order. 

2) Write a progam to accept string input, and tabulate the number of times 
each character appears. 

3) Write a program to alphabetize the strings of a single-dimension string 
array. 

4) Write a program to produce the following output, using the days of the 
week as stored in W$ in program DAYS01. 
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s 


M 


T 


■' 


T 


F 


S 


u 





U 


E 


H 


H 


A 


N 


N 


E 


D 


U 


I 


T 


D 


D 


S 


N 


R 


D 


U 


A 


A 


D 


E 


S 


A 


R 


Y 


Y 


A 


S 


D 


Y 


D 






Y 


D 
A 
Y 


A 
Y 




A 
Y 



5) Modify program ORDER$ to eliminate duplicates. 

6) Write a program to produce the following output, using the days of the 
week as stored in W$ in program DAYS01. 



S M T W T F S 

U U E H R A 

N N E D U I T 

D D a M R D U 

A A D E S A R 

Y Y A S D Y D 

Y D A A 

AY Y 

Y 



7-4 INTRODUCTION TO DATA FILES 

So far in our programming work all of the data used by our programs has 
been entered through DATA statements, INPUT statements, or LET statements. 
Consequently, we have had to store the data as part of the program or type the 
data directly at the keyboard of our terminal. This works out all right for small 
amounts of data that we wish to process just once. But, if we have large 
amounts of data or we expect to cany out several processes on our data, then 
we need to separate the data from the program. We can do this by using data 
files. 

A data file is simply a storage space in the computer where we store data, 
much as a program may be stored in a storage space. (In fact, in some com- 
puters, files and programs are indistinguishable until we type certain commands. 
Obviously, we cannot RUN a data file.) By designating a separate storage space 
for data, we gain many capabilities. We may now store much larger amounts of 
data than we could possibly store in the data statements of a program. We may 
alter the data to accommodate the results of program calculations. We may 
rearrange the data according to program specifications. The possibilities are 
limited only by our ability to think of problems to solve. 

Most computer processing done today utilizes data files. Data files are used 
for inventory, bookkeeping, and data processing of all kinds. Just considering 
the data handled by the Internal Revenue Service and the Census Bureau, the 
use of data files can be seen as a very complex business indeed. So we will 
attempt here to present only some rudiments of files processing in BASIC. 

As we said earlier, a file is a storage space accessible to the computer. This 
space may be used to store programs and data, which may be accessed during 
program execution. One of the features of these files that makes them mysteri- 
ous is that they are invisible. But then, so are programs during execution. How- 
ever, it is now possible to carry out tremendous amounts of useful computer 
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work without the need for printing at the terminal, although it is good pro- 
gramming practice to provide some printed output to help keep track of what 
the computer has done. After we have seen several examples, we will gain 
confidence that the computer is really performing the expected operations. 

The fundamental concept is that we may write or print data into a file and 
that we may retrieve that data under program control. Several versions of pro- 
gram statements are used to achieve these purposes. The next two sections 
explain the use of files as defined by two different systems. We have chosen 
Hewlett-Packard and General Electric versions of BASIC for this. 

7-5 HEWLETT-PACKARD FILES 

Just to get an idea about how data gets into files and how file data is ac- 
cessed, let's look at two short programs. The first is a program to enter some 
numbers into a file. See program PRINT. 

PRINT 



90 


REM * FIRST FILE DEM0NSH 


NATION 


100 


FILES TEST 




110 


F0R 1=1 T0 A 




115 


READ X 




120 


PRINT #l;x 




130 


NEXT I 




140 


DATA 3, 17. 11.31 




150 


END 




RUN 






PRINT 





This is the very first program we have run which does something useful 
without any printed output. (As a general rule, however, it is good practice to 
have programs produce some meaningful printed output at the terminal.) State- 
ments 100 and 120 introduce the first two file handling statements. Statement 
100 is called the FILES statement. It is the statement which makes the file 
whose name is TEST available to the program. Statement 120 instructs the 
computer to print data into the film instead of onto the paper in the terminal. 
In that statement, the #1 specifies the first file named in the files statement. We 
may be able to name eight or more files, separated by commas. In addition, 
some computers allow us to replace any file originally named during program 
execution by using the ASSIGN statement. In the PRINT # statement, every- 
thing past the semicolon is printed into the file. We may list several data items 
here, and strings and numerics may be intermixed. 

In order to allocate the file space in the first place, we used the OPEN com- 
mand. OPEN-TEST, 15 designates a file space, called TEST, that contains 
15 segments called records or sectors. Typically, a sector is large enough to 
store 32 numbers, or about 128 alphameric characters. More recent Hewlett- 
Packard computers allow the option of specifying record size through the 
CREATE command. On such a machine, CREATE TEST, 15,106 provides 15 
records, each allowing up to 53 numerics, or about 212 alphameric characters. 
(106, 212, and 319 are storage efficient numbers to use in the CEATE command.) 

In counting space for strings, we must add two to the number of characters 
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for each string and add one if there is an odd number of characters. Thus three 
characters require the same storage space as four. 

Now let's examine a program to read the contents of our file TEST. 

READ 

90 REM * PROGRAM T0 READ NUMBERS FR0M A FILE 

100 FILES TEST 

110 READ *UY 

120 PRINT Y; 

130 G0T0 110 

140 END 

RUN 

READ 

3 17 11 31 

END-0F-FILE/END 0F RECORD IN LINE 110 

The printed output produced by program READ should convince us that 
those numbers really came from a computer file as they do not appear anywhere 
in the program itself. We also got an error message which is exactly analogous 
to the 0UT 0F DATA IN LINE n message we have seen before. 

There are several ways to avoid terminating with this error. One is to keep 
track of the number of entries in the file; another is to place an item of artificial 
data at the end of the real data just as we did in DATA statements in programs. 
However, BASIC provides a special statement just for this purpose. It is the IF 
END statement. See line 105 of program READ01. 

READ0 1 

90 REM * PR0GRAM READ WITH IF END 'TRAP 1 

100 FILES TEST 

105 IF END #1 THEN 140 

110 READ #UY 

120 PRINT YJ 

130 G0T0 110 

140 END 

RUN 

READ01 



Statement 105 caused the computer to "remember" that if at any time we 
ask it to read beyond the data, it is to then execute line 140 as the next state- 
ment. In our case, that causes the program execution to terminate through the 
END statement. 

The IF END "trap" may also be used to find the end of data in a file so that 
we may begin at that point to print additional data into it. Program PRINT1 
does exactly this. 



PRINTl 




90 REM * PRINT 


WITH IF END 


100 FILES TEST 




110 IF END #1 


THEN 140 


120 READ #l;X 




130 G0T0 120 




140 FOR 1=1 T0 


3 



TRAP" 
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150 


READ 


X 


160 


PRINT 


#nx 


170 


PRINT 


XJ 


180 


NEXT 


i 


190 


DATA 


19.2.6 


aoo 


END 




RUN 






PRINT 1 





19 



Note that PRINT1 will also print numbers into an empty file. Consequently. 
we can eliminate the need for program PRINT. Now we run program READQ1 
to verify for us that the file now contains numbers printed into it in separate 
runs of two programs. 



RUN 
READO 1 



17 11 31 19 



When we used file TEST above, we simply printed numbers one after an- 
other into the file without any concern for exactly where in the file those num- 
bers were placed. Used in this way, file TEST is called a serial file. However, 
we could have directed the computer to print each of those numbers on a 
different record of the file. We need the following expanded file PRINT state- 
ment for this purpose: 

999 PRINT #1,R;X 

This statement allows us to specify that the data following the semicolon is to 
be printed in the Rth record of file #1. See line 130 of program PRINT2. 



PRINTS 


90 


REM * PRINT TO R 


100 


FILES TEST 


110 


F0R R=l T0 A 


120 


READ X 


130 


PRINT #1.R;X 


140 


PRINT x; 


150 


NEXT R 


160 


DATA 3. 17, 11.31 


17 


END 


RUN 




PRINT2 



3 17 11 31 

Now to read the Rth value we needn't read through all R items. We may 
read it directly with the statement, 

999 READ #1,R;X 

Since this structure allows us to select at random any starting point in the file, 
we refer to the file as a random access file. See program READ02. 
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READ02 

90 REM * DEMONSTRATE RANDOM ACCESS 

100 FILES TEST 

110 PRINT "ITEM If"; 

120 INPUT R 

130 IF R=0 THEN 170 

140 READ #1,R, X 

150 PRINT X 

160 GOTO 110 

17 END 

RUN 

READ02 

ITEM #?4 

31 
ITEM #?1 

3 
ITEM #?0 

One of the uses of data files is to rearrange data and store it in rearranged 
form. For example, let's enter the names of seven people along with their dates 
of birth and death in file TEST, one person to a record, and arrange them in 
alphabetical order using the technique of program ARANGE in Sec. 3-4. 

Program ENTERA reads the data from DATA statements and prints it in the 
first seven records of the file. 

ENTERA 

90 REM * FILE PRINT 0NE T0 A REC0RD 

100 DIM NSC72] 

110 FILES TEST 

120 F0R 1=1 T0 7 

130 READ N$,A,B 

140 PRINT #1,I,N$,A,B 

150 NEXT I 

160 DATA "JONES, J0HN PAUL", 1747, 1 792 

170 DATA "ANTHONY, SUSAN B. ", 1 820, 1906 

180 DATA "WASHINGTON* B00KER T. ", 1859, 19 1 5 

190 DATA "BELL, ALEXANDER GRAHAM", 1847, 1922 

200 DATA "EDISON, THOMAS ALVA", 1847, 193 1 

210 DATA "FORD, HENRY", 1863, 1947 

220 DATA "BL00MER, AMELIA JENKS", 18 18, 1894 

230 EN D 

RUN 

ENTERA 

Program READA reads from file TEST and prints at the terminal. 

READA 

90 REM * READ NAMES FROM A FILE 

100 DIM NSC723 

110 FILES TEST 

120 PRINT " D06 NAME" 

130 FOR 1=1 T0 7 

140 READ 01,I,N$,A,B 

150 PRINT AJNS 

160 NEXT I 

170 END 

RUN 

READA 
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DOB NAME 

17 47 JONES, J0HN PAUL 

1820 ANTHONY, SUSAN B. 

1859 WASHINGTON, B0CKER T. 

1847 BELL, ALEXANDER GRAHAM 

1847 EDISON, -TH0MAS ALVA 

1863 FORD, HENRY 

1818 BLOOMER, AMELIA JENKS 

Program ORDERA arranges the data in the file alphabetically. Note that 
line 190 is required so that when the comparison for order is made in line 160 
after an. exchange has taken place, A$ stores the appropriate string. This is 
necessary because data is stored in two places—in the file and in the variables 
of the program. It is the programmer's job to keep these two storage areas 
coordinated. 

0RDERA 

90 REM * ALPHABETIZE NAMES IN A FILE 

100 DIM ASC72I.BSI72: 

110 FILES TEST 

120 F0R 1=1 T0 6 

130 READ *M,nA$,A,Al 

140 F0R J = I+1 T0 7 

150 READ #1,JJB$»B,B1 

160 IF AS <= B$ THEN 200 

170 PRINT #1,I;BS,B,B1 

180 PRINT #1,JJA$,A,A1 

190 READ /n,IJAS,A,Al 

200 NEXT J 

210 NEXT I 

220 PRINT "FILE ALPHABETIZED" 

230 END 

RUN 

0RDERA 

FILE ALPHABETIZED 

And once again we run READA to see that the data is properly arranged in 
the file. 



RUN 




READA 




D0B 


NAME 


1820 


ANTHONY, SUSAN B. 


1847 


BELL, ALEXANDER GRAHAM 


1818 


BL00MER, AMELIA JENKS 


1847 


EDISON. TH0MAS ALVA 


1863 


FORD, HENRY 


1747 


JONES, JOHN PAUL 


1859 


WASHINGTON, B00KER T. 



SUMMARY 

The FILES statement is used to make files accessible to a program. We may 
be able to replace the files named during execution using the ASSIGN state- 
ment. We may print data into a file using PRINT #N;A,B,C$ to print in the 
next available space serially. Or we may use PRINT #N,R;A,B,C$ to specify 
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that the printing be at the beginning of record R. This approach is referred to 
as random access. We have the same options in the file READ statement. READ 
#N;A,B,C$ reads the next available data serially and READ #N,R;A,B,C$ reads 
at record R. The IF END statement allows us to determine when we are read- 
ing past the end of data in the file or are trying to read or print past the physical 
boundaries of the file itself. 

PROBLEMS FOR SEC. 7-5 

1) Use the IF END "trap" to avoid reading empty records or past the physi- 
cal end of the file in program READ02. 

2) Modify ENTERA so that it will accept varying numbers of names and can 
be used to add names to a file without "losing" data. 

3) Modify READA to read any number of names. 

4) Modify ORDERA to handle any number of names. 

5) Modify ORDERA to arrange the data in increasing order of date of birth. 

6) Write a program to print the names in file TEST at the terminal in alpha- 
betical order without altering the arrangement in the file itself. 

7) Write a program to print the names from file TEST in order of increasing 
age at death without altering the arrangement within the file itself. 

8) Since strings and numbers may be intermixed in a file and an attempt to 
read one when the other is next will result in an error condition, it is desirable 
to be able to distinguish between them. The TYP( ) function is provided for 
this purpose. TYP(N) takes on a value of one if the next item in the file is a 
numeric, two if the next item is a string, three if the next item is the end of file, 
and, if N is negative, four if the next item is end of record. The absolute value 
of N is the position of the file in the files statement. In order to get positioned 
at the beginning of a record without reading data, we can READ #N,R. Using 
the TYP( ) function and the positioning READ statement, write a program to 
read the unknown contents of a file and print them record by record at the 
terminal. 

7-6 GENERAL ELECTRIC FILES 

The files we are concerned with in this section are referred to as external files 
since they store data externally to any programs. Files are generally charac- 
terized in two ways: the access type and the data storage type. 

Data in files may be accessed sequentially or at random. Sequential access is 
similar to the way in which DATA statements of a program are accessed. Ran- 
dom access is similar to the way in which the elements of an array are accessed. 
As long as we know the exact position of a data item in a file, we may access 
it directly. 

The data contained in a file may be stored either as ASCII character codes 
or as the binary representations of ASCII character codes and the numbers 
being stored. We do not need to be concerned with the details of this distinction 
when writing BASIC programs. We need only identify the slight differences in 
program statement syntax required. ASCII files may be accessed only sequen- 
tially whereas binary files may be accessed either sequentially or at random. 
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ASCII Files 

ASCII files behave in many ways just like the DATA statements of a pro- 
gram. The data must be read sequentially, beginning with the first data item 
in the file. There is no way to access data at random points. The file may be 
filled from the keyboard exactly as DATA statements of a program are typed, 
but omitting the word DATA. The file may be listed at the keyboard with the 
LISt command, just as programs may be listed. Lines may be corrected in a 
file by retyping them. Lines may be removed by typing the line number fol- 
lowed by a carriage return. In order to make a file available for future use, it 
must be SAVed, just as a program must. 

Perhaps the best way to learn about files is to study an example. Let's type 
an ASCII file containing test score data for a class. Suppose we consider a class 
of only five people and enter their test scores on six tests. 

File SC0RE has been typed at the keyboard and SAVed as described earlier. 
We list the file here: 

LIST 

SC0RE 

100 MARK UNDERW00D,65,83,92,77, 68,79 

110 SUSAN STALBERG,73,8S,82,77,69,79 

120 EDGAR ANGLEMAN, 7 4, 86,73.79,80,7 5 

130 ALTHEA LARGE, 9 1 , 92, 90, 99, 92, 9 

140 GERTRUDE SMI TH, 7 1 , 8 6, 87, 90, 83, 92 

Now, to gain some file handling experience, let's make our first program 
merely print the contents of the file under program control rather than use the 
LIST command. This approach makes it possible to print labels and arrange 
the data in an easy-to-read form. See program READTEST. 

KEADTEST 

94 REM * READ FROM A FILE AMD PRINT ON THE TERMINAL 

100 FILES SCORE 

110 PRINT "NAME", "TEST 1 TEST2 TEST3 TEST4 TESTS TES I 6" 

130 READ #1, NS 

150 PRINT MS! TABC 15); 

160 FOR I = 1 TO 6 

17 READ It I, X 

190 PRINT XS " "; 

200 NEXT I 

210 PRINT 

230 IF MORE #1 THEN 130 

260 END 

RUN 

NAME TEST1 TEST2 TEST3 TEST4 TESTS TEST6 

MARK UNDERW00D 65 33 92 77 68 79 
SUSAN STALBERG 73 88 82 77 69 79 



LUDMI% MIVUt-CrmiM I M OO IV is ou * u 

ALTHEA LARGE 91 92 90 99 92 90 

GERTRUDE SMITH 7 1 86 87 90 88 92 



In program READTEST, there are just four statements of a file-handling 
nature. The statement 100 FILES SC0RE makes the file available to the pro- 
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gram. The file must exist to execute the program. The statement 130 READ 
#1, N$ is like a DATA READ statement except that the "#1" appears to notify 
the computer to read from the first file named in the FILES statement. We may 
name up to eight files there by separating them with semicolons. Statement 160 
is another file read statement. A statement 999 READ #N, A,B,X$,T would 
read three numerics and one string from the Nth-named file in the FILES state- 
ment. The statement 230 IF M0RE #1 THEN 130 has the ability to "look 
ahead" in the file to "see" if there is more data in the file. If there is more data, 
the computer is transfered to line 130; if not, then control passes to the next line. 
Now that we are able to read the file, let's perform the necessary operations 
to find each student average and the class average. We will require two vari- 
ables to store running totals. In program AVERAGE, T2 is the running total 
for the class, and Tl is the student running total. 



AVERAGE 








94 


REM * CALCULATE AVERAGES FROM A 


FILE 






100 


FILES SC0RE 








110 


PRINT "NAME","TEST1 TEST2 TEST3 


TEST4 ' 


1EST5 TEST6 


AVER 


120 


LET T1=0 








130 


READ #1j NS 








140 


LET T2 = 








150 


PRINT NIJ TABC 15)J 








160 


FOR I = 1 T0 6 








17 


READ »\, X 








180 


LET T2 = T2 + X 








190 


PRINT X; " "s 








200 


NEXT I 








210 


PRINT T2/6 








220 


LET Tl = Tl + T2 








230 


IF MORE #1 THEN 130 








240 


PRINT 








250 


PRINT "CLASS AVERAGE = "Tl/30 








260 


END 








RUN 










NAME 


TEST1 TEST2 TEST3 TEST4 TESTi 


» TEST6 AVENAGt 


MASK 


UNDERWOOD 65 83 92 77 


68 


7 9 7 7. 


J333 


SUSAN 


1 STALBERG 73 88 82 77 


69 


79 78 




EDGAR ANGLEMAN 7 4 8 6 78 7 9 


30 


7 8 7 9. 


1 667 


ALTHEA LARGE 91 92 90 99 


9 2 


90 92. 


3333 


GERTRUDE SMITH 7 1 86 87 90 


83 


92 8 5. 


6667 


CLASS AVERAGE = 82. 5 









Now that we know how to read an ASCII file under program control, let's 
see how to write data into such a file under program control. Suppose that we 
consolidate the data in file SC0RE, retaining just the names and averages to 
write into a new file, SC0RE1. To do this, we begin by naming both files in 
the FILES statement. We may enter data into an ASCII file with the WRITE 
#N statement. However, before writing into the file, it must be prepared for 
writing with the SCRATCH #N statement. SCRATCH #N sets a pointer to 
the beginning of the Nth-named file and prepares it for writing. In program 
WRITEAVG, we print each name at the terminal just to show the progress 
of execution during the program fun. For large amounts of data, we might 
simply print the number of names moved. See lines 110 and 140 of program 
WRITEAVG. 
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WRITEAVG 

94 REM * READ SCORE - WRITE SC0RE1 

100 FILES SC0REJ SC0RE1 

110 SCRATCH #2 

120 READ #1. N$,X1,X2,X3,X4,X5,X6 

130 PRINT NS 

140 WRITE #2, NS; <X 1 +X2+X3+X4+X5+X6) /6 

150 IF MORE #1 THEN 120 

160 END 

RUN 

MARK UNDERWOOD 
SUSAN STALBERG 
EDGAR AN GL. EM AN 
ALTHEA LARGE 
GERTRUDE SMITH 



Since this is an ASCII file, we may LISt it at the keyboard as follows: 

SCORE 1 

100 MARK UNDERWOOD, 77.3333 , 
110 SUSAN STALBERG. 78 , 
120 EDGAR ANGLEMAN, 79.1667 , 
130 ALTHEA LARGE, 92.3333 , 
140 GERTRUDE SMITH, 85.6667 , 

Additional files statements include APPEND #N, which sets a pointer to the 
end of data in a file and prepares the file for the write mode in a way similar 
to that of the SCRATCH #N statement, and RESTORE #N, which sets a 
pointer to the beginning of the file and prepares it for the read mode so that 
we may read the data in a file more than once in a single execution of a program. 

Binary Files 

Binary files may be used only under program control. They may be either 
sequential or random access. Sequential binary files are treated for programming 
purposes exactly like ASCII files except that where pound signs (#) appear for 
an ASCII file, a colon (:) is used for a binary file. 

Random Access Files 

Random access files may be segmented into blocks of storage called records. 
We may dictate the size of each record and the number of records in a file when 
we create it, much as we dimension a two-dimensional array. The record size 
is measured in words of storage. The word requirements for data are as follows: 

One word per numeric 

One word per four string characters, or fraction thereof 

One. word nm- srrincr fnr internal nnmnnffir control 

The exact arrangement of data within a file is completely the programmer's 
responsibility. We must know exactly where data is to be found and what it 
means. The situation is no different from data handling within an array except 
that once data is in a file, it seems more invisible. 
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For our first example, let's simply write three rows of six numbers each into 
a binary file with one program and then select some of them for printing at the 
keyboard with another program. The storage requirements amount to just three 
records, each containing six words. We obtain such a file with the CREate com- 
mand, as follows: 

CRE NUMB,(RAN(6,3)) 
See program RND. 

FILE 



94 


REM * LOAD RANDOM NUMBERS IMT0 A BINARY 


100 


FILES NUMB 


110 


F0R I = 1 T0 3 


120 


F0R J = 1 T0 6 


130 


LET X = RNDCX) 


140 


WRITE : 1, X 


150 


PRINT XJ 


160 


NEXT J 


170 


PRINT 


180 


NEXT I 


190 


END 



0.98385 0.362274 0.250535 0.338074 0.250009 0.342306 
0.676737 0.820017 0.290332 0.63319 0.373523 0.853779 
0.151996 0.975866 0.811924 0.448439 0.139038 0.847165 

Notice that we are able to fill the file without regard to position in the file 
because we are exactly filling each record as we go. This is not always the case. 

To select locations at random within the file, we need the SETW statement. 
SETW N T0 X places a pointer in file N to the Xth word in the file without 
regard to file dimensions. Thus, in our file of six words per record, the ninth 
word is the third word on the second record. To think in terms of records and 
words within a record, we need a formula to determine the value of X. For the 
Cth word in record R where there are W words per record, the value of X is 
W"(R— 1) + C Now let's write a short program to find selected positions in file 
NUMB. See program PICK. Notice that the REST0RE statement is not re- 
quired for random access files. REST0RE:N is equivalent to SETW N T0 1. 

PICK 

A FILE AT RANDOM 



94 


REM * SELECT A NUMBER FROM 


100 


FILES NUMB 


110 


PRINT "R0W,C0L"J 


120 


INPUT R,K 


130 


IF R = THEN 190 


140 


SETW 1 T0 6* C R- 1 ) + K 


150 


READ : I, A 


160 


PRINT "FOUND"; A 


17 


PRINT 


180 


GOTO 110 


190 


END 


RUN 




ROW, 


COL? 2,3 


F0UN 


D 0.290332 
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R0W*C0L? 3,6 
FOUND 0.847 165 

ROW, COL? 0.0 

For our final example we will use a binary file to arrange the student data 
from our ASCII file SC0RE1 in order of increasing test average. We must 
write the necessary data into a binary file, arrange it, and then print the results. 
This can be done with three different programs or with a single program. We 
will use a single program here. See 0RDERAUG. 

To determine the size records required, we must know the number of char- 
acters in the name strings. We find a maximum of 14 characters. We should 
go to at least 16 since that is the next multiple of four. In practice, to make 
such a file generally useful, we would probably go even higher. Allowing for 
16 characters, we need four words for storage of string data, plus one word 
for control, plus one word for the numeric. For this problem, a file with five 
records containing six words per record is sufficient. We get that with CRE 
SC0RE2,(RAN(6,5)). 

0RDERAVG 

100 FILES SC0RE1! SC0RE2 

104 REM * WRITE DATA INTO BINARY FILE 

110 FOR I = 1 TO 5 

120 READ III, NS.A1 

130 SETW 2 TO 6*<I-1> + 1 

140 WRITE :2, NS*A1 

150 NEXT I 

154 REM * NOW ARRANGE THE DATA ACCORDING TO AVERAGES 

160 FOR I = 1 TO 4 

170 FOR J = I + 1 TO 5 

180 SETW 2 TO 6* C I - 1) + 1 

190 READ :2, NS.A1 

200 SETW 2 TO 6*<J-1) + 1 

210 READ : 2, MS.bil 

220 IF Al <= Bl THEN 270 

230 SETW 2 TO 6* C I - 1) + 1 

240 WRITE :2, MS.B1 

250 SETW 2 TO 6*<J-1> + 1 

260 WRITE :2, NS.A1 

27 NEXT J 

280 NEXT I 

284 REM * AND NOW PRINT THE RESULTS 

290 PRINT " NAME", "AVERAGE" 

300 PRINT 

310 FOR I = 1 TO 5 

320 SETW 2 TO 6*( I - 1) + 1 

330 READ :2, NS.A1 

340 PRINT NS.A1 

350 NEXT I 

360 END 

RUN 

mimc AVERAGE 

MARK UNDERWOOD 77.3333 

SUSAN STAL3ERG 73 

EDGAR ANGLEMAN 79.1667 

GERTRUDE SMITH 85.6667 

ALTHEA LARGE 92.3333 
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SUMMARY 



The FILES statement is used to make files accessible to a program. The files 
of this section are of two types: ASCII and BINARY. ASCII files are sequential 
and may be accessed from the keyboard or through a program. Binary files 
may be either sequential or random access and may be accessed only through 
a program. We may use READ #N, WRITE #N, SCRATCH #N, APPEND #N 
or RESTORE #N to handle data in an ASCII file. For sequential binary files, 
all of the above statement types may be used by replacing the pound signs (#) 
with colons (:). For random access files, we have the additional statement 
SETW N T0 X which sets a pointer at the Xth word of a file in preparation 
for the next READ or WRITE statement. A file is made random access in the 
CREate command. 

PROBLEMS FOR SEC. 7-6 

1) Type a few inventory items with quantity and price data into an ASCII 
file. Write a program to print the value of each item and the total value of 
inventory at the terminal. 

2) Write a program to print a list of an unknown number of names in an 
ASCII file at the terminal in alphabetic order. Use RESTORE #N and repeated 
reading of the file for this purpose. Assume that there are no duplicates. 

3) Consider a random access file containing five words per record and six 
records filled with numbers. Write a program to find the largest number in each 
record and the largest number in each "column." 

4) You are presented with a random access file with a set of ten names in it; 
each name was entered first name first, followed by a space, followed by last 
name. Since this ordering is difficult to alphabetize, you are to replace each 
entry in the file rearranged so that the last name is first, followed by a comma, 
a space, and the first name. You know that each string is to be allocated eight 
words of storage. 

5) (Project) Print some names into a random access file. Place a list of point- 
ers to those names in an ASCII file so that if the pointers are read sequentially 
from the ASCII file and used to access the names in the random access file with 
the SETW statement, the names will be accessed in alphabetic order. Use the 
ASCII file to print the names in alphabetic order. 



CHAPTER 8 



We define a quadratic function as a real function of the form 
f(X) =AX 2 + BX + C (8-1) 

where A does not equal 0. 

8-1 ZEROS 

Often in mathematics we would like to find the zeros of a quadratic func- 
tion. For some sets of coefficients, we may factor the expression on the right in 
Eq. (8-1) and set each factor equal to 0. This would be the method to use 
for f (X) = X 2 + 3X + 2. We would find zeros as follows: 

X 2 + 3X + 2 = 
Factoring, 

(X + 1)(X + 2) = 

and (X + 1) = or (X + 2) = 

So X = -1 or X = -2 

and the truth set is {—2, —1}. 

However, in general for nonfactorable as well as factorable quadratic ex- 
pressions on the right in Eq. (8-1), we may use the quadratic formula, which 
may be derived by the method of completing the square. The zeros of 
f(X) = AX 2 + BX + C are 

_ — B + y'B- — 4AC 

- 2A 



Yo_ ~B-VB 2 -4AC 
X2_ — 



122 



The Quadratic Function 123 

Since we are going to insert these equations into a program we will write 

ZZZ LET XI = (-B + SQR(B ao 2 - 4 ° A ° C))/(2 ° A) 

and 

ZZZ + 10 LET X2 = (-B - SQR(B ° ° 2 - 4 " A " C))/(2 ° A) 

Now all we need is some data and some printing instructions (see QUAD1), 
which seems to work well enough. You will want to modify QUAD1 to 
account for nonieal zeros. You may want to just print a message or you may go 
ahead and compute the nonreal values. As the program stands though, if 
B " 2 - 4 ° A " C is negative, the computer will at best print an error 
message and at worst it will terminate the RUN. 



QUAD! 



5 PRINT " 


A 


B 




C 




", "XI", 


10 READ A, 


B, C 












15 IF A=0 


THEN 


99 










20 LET Xl = 


<-B+SQR<B» 


2- 


4*A*C))/C2*A) 


30 LET X2= 


<-B- 


50R<Bt 


2- 


4*A*C))/(2*A) 


40 PRINT a;b;c,xi,X2 










45 G0T0 10 












50 DATA 1, 


3,2 












60 DATA 1. 


2.-3,2, 4,- 


6j 


6, 


13, 


6,5,-7,2 


70 DATA 0. 


0,0 












99 END 














RUN 














QUAD1 














A B 


C 










XI 


1 3 


2 










-1 


1 2 


-3 










1 


2 4 


-6 










1 


6 13 


6 










-.6666 


5 -7 


2 










1 



■X2" 



X2 
-2 
-3 
-3 
-1. 



D0NE 



The gr 
graph of 
symmetry 
the right 

f(X) 
f(X) 

f(X) 
we get 
f(X) 



8-2 AXIS OF SYMMETRY AND TURNING POINT 

aph of a quadratic function is called a parabola. In examining the 
a quadratic function we often want to know where the axis of 
is and where the turning point is. By completing the square on 



= AX 2 + BX + C 
B 



= A 

= A 

= A 



X 2 + 

X-' + 

X + 



A X + 



2A 



4A 2 


4A 2 


B 2 " 


B 2 


4A 2 


4A 


4AC- 


-B 2 



+ c 
+ c 



4A 
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Now, when X = -B/2A, X + B/2A = 0. The value of f(X) is minimum if A 
is positive and maximum if A is negative, and the value of f(— B/2A) is 
(4AC — B 2 )/4A. Thus the coordinates of the turning point are 



(~ 



B 

2A 



4AC - B 2 
4A 



You should know, too, that the line whose equation is X = — B/2A is called the 
axis of symmetry. We should now be able to write a program to print three 
items of information: 1) the maximum or minimum status of the parabola, 
2) the equation of the axis of symmetry, and 3) the coordinates of the turning 
point. Let us collect things into a flowchart (see Fig. 8-1), and write program 
QUAD2. 



Fig. 8-1. Flowchart for finding axis 

of symmetry, turning point, and 

maximum-minimum status for 

parabolas. 



y es U PRINT 
minimum 
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QUAD2 



10 READ A»B,C 

15 IF B=-.001 THEN 9999 

20 PRINT A;BJC 

25 IF A <> THEN 30 

26 PRINT "A=0 THE EXPRESSION IS N0T QUADRATIC" 
2 7 G0T0 20 

28 REM DETERMINE MAX. 0R MIN. 

30 LET M=SGNCA> 

40 IF M=l THEN 70 

50 PRINT "MAXIMUM PARABOLA" 

60 GOTO 80 

70 PRINT "MINIMUM PARAB0LA" 

78 REM FIND THE AXIS 0F SYMMETRY 

80 LET X=-B/<2*A> 

90 PRINT "AXIS 0F SYMMETRY IS X =";X 

98 REM FIND THE EXTREME VALUE 

100 LET Y=C4*A*C-Bt2)/C4*A) 

110 PRINT "THE TURNING POINT IS C "; X J ", "1 YJ ") " 

115 PRINT 

120 G0T0 10 

150 DATA I»3j2il»2t-3.6il3»6 

1 55 DATA -3* 5, 11 

160 DATA 4. -.001, 1 

9999 END 

RUN 

QUAD2 

1 3 2 
MINIMUM PARABOLA 
AXIS OF SYMMETRY IS X =-1.5 
THE TURNING POINT IS C-1.5 ,-.25 

1 2 -3 

MINIMUM PARABOLA 

AXIS 0F SYMMETRY IS X =- 1 

THE TURNING POINT IS (-1 .-A ) 

6 13 6 
MINIMUM PARABOLA 

AXIS OF SYMMETRY IS X =-1.08333 
THE TURNING POINT IS C-l. 08333 ,-1.04167 

-3 5 11 

MAXIMUM PARABOLA 

AXIS OF SYMMETRY IS X = .833333 

THE TURNING POINT IS C .833333 . 13.0833 



DONE 

8-3 PLOTTING THE PARABOLA 

One last consideration for the parabola is to plot its graph. This works well 
right on the terminal itself. We may use the spaces across the carriage as one 
axis and the paper lengthwise as the other axis. Since the line feed is auto- 
matically set on the terminal, the X-axis should run perpendicular to the 
carriage and the Y-axis should run across the page. This means that one line 
represents one unit on the X-axis and one space represents one unit on the 
Y-axis. This is rotated 90 degrees clockwise from the conventional system. 

Let us start out with the simplest possible graph and see what refinements 



126 Basic BASIC 



will be required. We will first graph Y = X ° 2. We will put " "; in a loop to 
get the printing head to the point that we want plotted. Any printed character 
may be used to represent the plotted points. The range you select will depend 
on the width of the carriage on your terminal. Selecting the domain for X as 
—7 to +7 we will require a range of to 49. 

When X = —7, we want the printing head to step out 48 spaces, then print 
a character, and then RETURN. Now we want X to go to —6 and the printing 
head will have to step out only 35 spaces, print a character, and RETURN. As 
this process is repeated, it too will be put in a loop with X going from —7 to 
+7 incrementing by 1. It will be convenient to define a function here, not as 
a saving now, but to fit in with later plotting problems. Before writing the 
program PL0T1, let us draw a flowchart (see Fig. 8-2). Notice that we intend 
printing the spaces followed by a semicolon and the plotted points also fol- 
lowed by a semicolon. After the point has been plotted, we do not want the 
printing head to step the rest of the way across the carriage as that would be 
a waste of computer time for this particular plot. So line 62 is used to return 
the printing head to the left margin. We should observe that the procedure 
we are developing is not especially efficient in the first place, and so should 
be used sparingly. 



c 



Start 



„ ^wr , 



DEF FNQ(X) 

= X**2 



I 



F0RX 
-7107 



F0RY 
= T0 70 



JL 




yes 






PRINT 



f END J 

Fig. 8-2. Flowchart to plot Y = X ** 2. 
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PL0T1 



30 DEF FNQCX)=X»2 
60 F0R X = -7 T0 7 
62 PRINT 

88 REM LINE 90 HAS THE EFFECT 0F NUMBERING THE SPACES 

89 REM ACR0SS THE PAGE T0 70 

90 F0R Y = T0 70 

120 IF Y=FNQ«X> THEN 210 

148 REM IF Y DOES N0T EQUAL FNQCX) THEN PRINT A BLANK SPACE 

1 50 PRINT " "J 
180 NEXT Y 
210 PRINT "*"1 

212 REM PL0T THE P0INT AND G0 T0 NEXT X 
240 NEXT X 

2 70 END 
RUN 
PL0T1 



D0NE 

PL0T1 was not bad for our first try. If we are going to plot other para- 
bolas, we will have to make a provision for values of Y less than 0. So we 
may change line 90 to read 90 F0R Y = -M T0 70 — M, where M is the 
number of spaces to the left of 0, and then we can put M on INPUT: 

90 F0R Y= -M T0 70-M 

5 INPUT M 

4 PRINT "INPUT THE NUMBER 0F SPACES DESIRED T0 THE LEFT 0F ZER0"J 

88 

89 

6 PRINT 
RUN 
PL0T2 

INPUT THE NUMBER 0F SPACES DESIRED T0 THE LEFT 0F ZERO? 10 



D0NE 
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We have indeed graphed Y = X °° 2; however, the graph is not clearly 
defined because there are no axes to specify the coordinate system. Let us 
build up the coordinate system by first putting in the origin by plotting a 
there. Immediately, we are faced with a decision. If the graph contains the 
origin, do we want the plotted point or the origin designation? Since the 
absence of the plotted point for X = would indicate that it should have been 
plotted at the origin, let us plot the at the origin as first priority. So, before 
anything gets done for a particular value of X, we ask if the value of Y is 0. 
If it is, we next look for the point at which X is also 0. At (0, 0) we print 0. 
Having printed 0, we next look to see if FNQ(X) is greater than 0. If it is, we 
send the printing head on across the page. 



9 2 IF Y <> THEN 120 

94 IF X <> THEN 120 

9 5 REM IF THE COMPUTER GETS THROUGH HERE THE 

96 REM PRINTING HEAD IS AT THE ORIGIN 

98 PRINT "0"; 

100 IF FNOCX)>0 THEN 180 

102 REM IF FNGKX) > G8 FIND WHERE IT IS 

103 REM OTHERWISE GET THE NEXT VALUE 0F X 
106 GOTO 240 

RUN 
PL0T3 

INPUT THE NUMBER 0F SPACES DESIRED TO THE LEFT 0F ZER3?6 



DONE 



As long as we have the X-axis located, we might just as well put it in 
the graph. All that is necessary is to have a PRINT instruction whenever 
Y = but X does not. 



94 IF X = THEN 98 

95 PRINT "t"; 
9 6 GOTO 100 
RUN 

PL0T4 
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INPUT THE NUMBER 0F SPACES DESIRED TO THE LEFT OF ZER0?9 



DONE 



Finally, we may put in a Y-axis. Let us settle for having the Y-axis along 
the leading side of the graph. By putting the Y-axis there, we will be able to 
print the scale without interfering with the graph itself. For the particular 
graph we have been plotting a range from to 50 is reasonable. 



8 


PRINT " 


10 


FOR X=0 TO 50 STEP 10 


12 


PRINT " "JXJ 


14 


NEXT X 


1 5 


PRINT 


16 


FOR X= 1 TO 70 


18 


IF X/10=INT(X/10) THEN 24 


20 


PRINT "-"; 


22 


GOTO 26 


24 


PRINT "t"J 


26 


NEXT X 


RUN 




PL0 


T5 



INPUT THE NUMBER OF SPACES DESIRED TO THE LEFT OF ZER0?9 

10 20 30 40 50 



DONE 
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At this point, the program is scattered all over the place and some of the 
line numbers are very close together. So we renumber beginning with line 10 
and print the entire program in PL0T5. 



PLOTS 

10 PRINT "INPUT THE NUMBER 0F SPACES DESIRED TO THE LEFT 0F 

ZER0-J 

20 INPUT M 

30 PRINT 

40 PRINT " "; 

50 FOR X=0 T0 50 STEP 10 

60 PRINT " ";x; 

70 NEXT X 

80 PRINT 

90 F0R X=l T0 70 
100 IF X/I0=INTCX/10> THEN 130 
110 PRINT "-"; 
120 G0T0 140 
130 PRINT "t"j 
140 NEXT X 
150 DEF FNGXX)=Xt2 
160 F0S X = -7 T0 7 
170 PRINT 

180 FOR Y=-M T0 70-M 
190 IF Y <> THEN 280 
200 IF X=0 THEN 230 
210 PRINT "t"i 
220 G0T0 2 40 
230 PRINT "0"J 
240 IF FNQCX>>0 THEN 310 

250 REM IF FNQCX) > G0 FIND WHERE IT IS 
260 REM OTHERWISE GET THE NEXT VALUE 0F X 
2 70 GOTO 340 
280 IF Y=FNQCX> THEN 320 

290 REM IF Y DOES NOT EQUAL FNQCX) THEN PRINT A BLANK SPACE 
300 PRINT " "J 

310 NEXT Y 
320 PRINT ••*"; 

330 REM PLOT THE POINT AND GO T0 NEXT X 

340 NEXT X 
350 END 



There are still several considerations regarding this program for plotting. 
For instance, as the program is written, it will not plot the X-axis if the Y 
value is less than 0. The scale is fixed. There is provision for only one function 
to be plotted. Also, consider what happens if the value of Y is not an integer. 
All of these comments suggest areas in which the program could be improved. 
Let us insert a different function and call for one last RUN of PL0T5. 



150 DEF FNQCX)=CX-2)»2+3 

160 F0R X = -5 TO 8 

RUN 

PLOTS 
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INPUT THE NUMBER 0F SPACES DESIRED T0 THE LEFT 0F ZER3?9 

10 20 30 40 50 



D0NE 



SUMMARY FOR CHAP. 8 

There are several things that can be done with the quadratic function on a 
computer: 1) we can calculate the zeros; 2) we can find the various constants 
that specify the appearance of the graph; 3) and we can even use the terminal 
itself to plot a graph of the function. Of course the graphing program may be 
used to plot other functions as well. 



PROBLEMS FOR CHAP. 8 

1) Write a program that finds the results of QUAD1, but prints rational zeros as 
fractions reduced to lowest terms. 

2) Modify QUAD1 to compute nonreal zeros. 

3) The Y-coordinate of the turning point of a parabola may also be found by 
evaluating f(-B/(2 ° A)). Rewrite QUAD2 by defining a function. 

4) For sets of coefficients in data lines, have the computer print coordinate pairs 
(X, Y) for a reasonable range. 

5) Modify PL0T5 to permit the X-axis to be printed for Y-coordinates less than 
0. Also provide for the point to be plotted where the graph crosses the X-axis. 



CHAPTER 9 



Ti 



9-1 INTRODUCTION TO SIN(X), C0S(X), AND TAN(X) 

We choose to define the circular functions in terms of a point (X, Y) plotted 
in a rectangular coordinate system. Consider the point (X, Y). It is at a dis- 
tance R from the origin. We may find R from X and Y by using the 
Pythagorean theorem: 



R = yx^ + Y-' 

It is conventional to use Greek letters for angles. However, since computer 
terminals do not provide them, we may use any letters we wish. Let us use G 
to measure the angle whose initial side is the non-negative portion of the 
X-axis and whose terminal side is the ray that has its endpoint at the origin and 
contains the point (X, Y) . See Fig. 9-1. 

From Fig. 9-1 we define three circular functions as follows: 

cos G = X/R 
sin G = Y/R 
tan G = Y/X 

where cos stands for cosine, sin stands for sine, and tan stands for tangent. 

In BASIC it is required that the angles be measured in radians. 1 radian 
may be defined as the central angle subtended by an arc length of R on the 
circumference of a circle of radius R. Since the circumleience of a circle of 
radius R is 2*zrR, we see that 

2tt radians = 360 degrees 
7r radians = 180 degrees 
1 radian = 180/7T degrees 
7r/180 radians = 1 degree 

132 
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Fig. 9-1 



Although some time-share systems provide the special computer functions 
RAD(X) and DEG(X) to convert from degrees to radians and from radians to 
degrees, respectively, you should be prepared to make the required conversions. 

The usually available computer trigonometric functions are SIN(X), 
C0S(X), and TAN(X). They are used in much the same way that all other 
computer functions are used. Just be sure that the argument of the function 
is in radians. 

In mathematics, it is customary to define three additional circular functions 
as follows: 

sec G = R/X or sec G = 1/cos G 
esc G = R/Y or esc G = 1/sin G 
cot G = X/Y or cot G = 1/tan G 

where sec stands for secant, esc stands for cosecant, and cot stands for 
cotangent. Some computers provide these three functions in addition to the 
earlier three, but we may always use the appropriate reciprocal. As always, 
should an expression become too cumbersome, we have the option of defining a 
program function using DEF. 

Let us get the computer to print a small table of values of sin, cos, and 
tan for to 80 degrees in intervals of 10 degrees. We stop short of 90 degrees 
to avoid having an undefined value for the tangent of 90 degrees. To write 
program TRIG1, we will have to convert degrees to radians, so we multiply 
by 77-/180. 

9-2 RIGHT TRIANGLES AND ARCTANGENT 

Taking the graph of Fig. 9-1 and dropping the perpendicular from (X, Y) 
in the first quadrant to the X-axis we get Fig. 9-2. We have formed a right 
triangle in which the length of the hypotenuse is R, the length of the base is 
X, and the length of the altitude is Y. Redrawing the triangle without the 
coordinate system, we get triangle ABC with the trigonometric ratios as in 
Fig. 9-3. 
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TRIGl 



5 PRINT ' 


SINE 


', "COSINE", ' 


•TANGENT". "RADIANS", "DEGREES- 




9 REM WE COMPUTE A CONVERSION CONSTANT 








10 LET C= 


3. 14159/180 












20 FOR G= 


TO 


80 STEP 10 












30 PRINT 


SIN<G*O.C0S<G*C>*TANCG*C>» 


G*C» 


G 






40 NEXT G 














50 END 
















RUN 
















TRIGl 
















SINE 




COSINE 


TANGENT 






RADIANS 


DEGREES 







1. 















. 173648 




.984808 


. 17632 7 






. 174533 


10 


.34202 




.939692 


• 3639 7 






.349066 


20 


• 5 




.866025 


.57735 






.523599 


30 


.642 788 




. 766044 


.8391 






.698132 


40 


.766044 




.642 788 


1. 19175 






.872665 


50 


•866025 




.5 


1. 73205 






1.0472 


60 


.939692 




. 34202 


2. 74748 






1.221 73 


70 


.984808 




. 173648 


5.67129 






1.39 626 


80 



O0NE 




>-y 



Fig. 9-2 




,/-\ 



cos/_A = b/c 

cin / A. = a/c 

tan/_A = a/b 



Fig. 9-3 
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Fig. 9-4 



We also know from geometry that lA and ZB are complements, i.e., their 
sum is 90 degrees or tt/2 radians. 

Let us solve a problem: George has a 36-ft ladder which he is going to use 
to paint his father's house. He believes that the angle formed by the ladder 
and the side of the house should be not less than 14 degrees and not more 
than 15 degrees. He needs to know how far out from the house to place the 
foot of the ladder. See Fig. 9-4. 

We may use either SIN(G) = B/L or C0S(9O - G) = B/L. Let us choose 
the sin function and solve for B: 

B = L" SIN(G) 

We will have to convert degrees to radians. This is the purpose of line 10 in 
program LADER. 



LADER 



10 

20 

30 

40 

50 

60 

HUN 

LADER 



LET 
LET 
PR1 
PRI 
PRI 
END 



C=3. 14159/180 

L = 36 
NT "36 ' LADDER BASE MUST BE OUT FRQM THE HOUSE IN FEET" 
NT "NOT LESS THAN", "NOT MORE THAN" 
NT L*SIN<C*14>,L*SIN(C*15> 



36- LADDER BASE MUST BE OUT FROM THE HOUSE IN FEET 
NOT LESS THAN NOT MORE THAN 
8.70918 9.31748 

DONE 



We really do not need more than hundredths, so let us round off. Also, 
since George may want to change the length of the ladder to reach different 
heights, let the ladder length go from 36 ft to 20 ft. See LADER1. 
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LADERl 



LET C=3. 14159/180 

PRINT "LADDER BASE MUST BE 0UT FR0M THE HOUSE IN FEET- 
PRINT "NOT LESS THAN", "NOT M0RE THAN"* "LADDER LENGTH" 
F0R L = 36 T0 20 STEP -2 

PRINT INT<L*SINCC*14)*100-t-.5)/10Q, IN TCL* SIN C C* 1 5)* 1 00+ . 5) / 1 00, 
PRINT L 
NEXT L 
END 



10 

30 

40 

45 

50 

51 

55 

60 

RUN 

LADERl 

LADDER BASE MUST BE OUT FR0M THE HOUSE IN FEET 



N0T LESS THAN 
8. 71 
8.23 
7. 74 
7.26 
6. 77 
6.29 
5.81 
5.32 
4.84 

DONE 



NOT MORE THAN 
9.32 
8.8 
8.28 
7.76 
7.25 
6. 73 
6.21 
5.69 
5. 18 



LADDER LENGTH 
36 
34 
32 
30 
28 
26 
24 
22 
20 



ATN(X) 

Suppose we know the lengths of the sides of a right triangle and we need 
to know the angles. If we are using printed tables in a book, we may look up 
the angle whose sin, cos, or tan is known. Not so with the computer. An addi- 
tional computer function is required for this. ATN(X) is the function usually 
available, though some systems will provide others as well. ATN(X) computes 
the angle whose tangent is X. If 

TAN(G) = X 
then 

ATN(X) = G 

where ATN stands for arctangent and G is in radians. 



Fig. 9-5 
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Suppose we lean a 36-ft ladder against a building with the base 8 ft out 
and we would like to know the angle formed by the ground and the ladder, 
as in Fig. 9-5. We can say 

TAN(G) =H/8 

which means 

ATN(H/8) = G 

H = SQR(36 <,0 2-8 80 2) 

Therefore, G may be found in radians by 

G = ATN(SQR(36 oa 2 - 8 00 2)/8) 
and the angle in degrees may be found by 

LET G = G ° 180/V 
See LADER2. 



LADER2 




10 LET G= 


:ATNCSQR06»2-8t2)/S> 


15 PRINT 


GJ "RADIANS" 


20 LET G= 


= G*180/3. 14159 


30 PRINT 


GJ "DEGREES" 


40 END 




RUN 




LADER2 




1.3467 


RADIANS 


77. 1605 


DEGREES 



DONE 



SUMMARY 

We now may apply the computer to the trigonometry of the right triangle 
using SIN(X), C0S(X), and TAN(X) to find sides when angles are known and 
using ATN(X) when we wish to compute angles. We must always be aware of 
the need to use radians for the argument of the computer trigonometric 
functions. 

PROBLEMS FOR SEC. 9-2 

1) Modify LADER2 to give the angle in degrees and minutes. 

2) Modify LADER2 to give the angle in degrees, minutes, and seconds. 

3) Rewrite LADER2 so that the number of radians is given in terms of ir. 

4) If the sides of a triangle are 10, 10, and 4, find the angles of the triangle to 
the nearest minute. 

5) Find the angles of a 3, 4, 5 right triangle to the nearest minute. 

6) Find the angles of a 5, 12, 13 right triangle to the nearest minute. 
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7) A right triangle has one angle 42°25' and the side opposite that angle has a 
length of 10.0". Find the other sides of the triangle. 

8) Standing 1000 ft from the base of a lighthouse on level ground, the angle of 
elevation is 7° 30'. Find the height of the lighthouse. 

9-3 LAW OF SINES AND LAW OF COSINES 
Law of Sines 

By drawing a triangle successively with each of its vertices at the origin of 
a rectangular coordinate system, we may compute its area in three ways. 
Referring to Fig. 9-6, the area is found by 

Area = £b(Hl) or Ka(H2) or Kc(H3) (9-1) 

We should see that 

sin CI = Hl/a 
sin Bl = H2/c 
sin Al = H3/b 

Solving for the heights we get 

HI = a sin CI 
H2 = csinBl 
H3 = b sin Al 

Substituting in Eq. (9-1) we get 

Area = Mb(asinCl) or Ka(csinBl) or 8c(b sin Al) (9-2) 

Therefore we may find the area of any triangle by taking one half the product 
of two sides and the sine of the included angle. 

Since the area of a triangle is unique, we may set the three expressions for 
area in Eq. (9-2) equal to get 

Kba sin CI = Kac sin Bl = Kcb sin Al 

By clearing of fractions and dividing through by abc, we get 

sin CI sin Bl sin Al . . 

~T~ - b - a (9 " 3) 

Equation (9-3) is called the Law of Sines. It enables us to find all parts of a 
triangle if we are given any two sides and the angle opposite one of them, or 
if we are given any two angles and any one side (provided, of course, the 
triangle exists). 

Let us write a program to find the remaining parts of a triangle ABC given 
Al, Bl, and a. Since the sum of the measures of the angles of a triangle is 
ISO degrees, we first gee 

CI = 180° - (Al + Bl) (9-4) 
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Fig. 9-6 



The Law of Sines gives us 



sin Al 



sinBl 



Solving for b gives 
a sin Bl 



sin Al 



Similarly we get 
bsin CI 



sinBl 



(9-5) 



(9-6) 



And finally, the area may be found by 

Area = Kab sin CI (9-7) 

All we have to do is put all that into a program. We may do that almost 
directly from Eqs. (9-4)-(9-7). These four equations appear in order in lines 
60, 70, 80, and 90 of program LAWSIN. 

In writing the program, we have done only slightly more work than we 
would do preparing to do the calculation by hand. However, we are letting 
the computer take the drudgery out of the actual calculation. We also have the 
program available to do large numbers of calculations at a later date with 
virtually no additional effort required. However, we continue to be totally 
responsible for the mathematics required. 

If we reflect for a moment upon the congruence of triangles, the various 
congruence conditions come to mind. They are side-angle-side, angle-side-angle, 
side-side-side, and angle-angle-corresponding side. There are special cases for 
right triangles. We should see then, that if any of these four sets of measures 
is known, we should be able to find the remaining three parts uniquely. And 
so we can. We have just used LAWSIN for two angles and a nonincluded 
side. We should be able to handle two angles and the included side with only 
slight modifications of LAWSIN. However, you should see that we cannot 
handle side-side-side or side-angle-side with the Law of Sines. For these we 
need the Law of Cosines. 
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LAWSIN 

8 REM WE COMPUTE THE C0MVERSIOM FACTOR 

10 LET K = 3. Ml 59/180 

18 KEM DEFINE TRIG FUNCTION F0 ■< DEGREES 

20 DEF FNTC G) = SINCG*K> 

28 REM DEFINE A ROUNDING FUNCTION 

30 DEF FNRCX)=INT(X*100+. 5>/100 

38 HEM' Al AND Bl ARE ANGLES AND A IS A SIDE 

40 READ A1,31,A 

50 IF AI=0 THEN 999 

58 REM FIND THE THIRD ANGLE 

60 LET Cl= 180-CA1+B1 ) 

68 REM 70 AND 80 COMPUTE THE OTHER TWO SIDES 

70 LET B=A*FNT(B1)/FNT(A1 ) 

80 LET C=B*FNTCC1)/FNTCB1 ) 

83 REM COMPUTE AREA 

90 LET A2=.5*A*B*FNTCC1 ) 

98 REM NOW PRINT THE RESULTS 

100 PRINT " ", " A"." B"." C" 

110 PRINT "THE ANGLES ARE". A 1 , Bl » C 1 

120 PRINT "THE SIDES ARE". FNRC A) . FNRC B) . FNRC C) 

130 PRINT "AND THE AREA IS ";FNRCA2> 

140 PRINT 

150 GOTO 40 

500 DATA 24. 51. 10 

510 DATA 30.60, 15 

520 DATA 45,45,20 

530 DATA 0,0,0 

999 END 

RUN 

LAWS IN 



THE 


ANGLES ARE 


24 


51 




105 


THE 


SIDES ARE 


10 


19. 


1 1 


23. 75 


AND 


THE AREA IS 


92.28 












A 


B 




C 


THE 


ANGLES ARE 


30 


60 




90 


THE 


SIDES ARE 


15 


25. 


98 


30 


AND 


THE AREA IS 


194.86 












A 


B 




C 


THE 


ANGLES ARE 


45 


45 




90 


THE 


SIDES ARE 


20 


20 




28.28 



DONE 



Law of Cosines 

For any triangle A1B1C1 we may place a vertex at the origin of a rectangu- 
lar coordinate system and designate the vertices as shown in Fig. 9-7. 
Using uie Fylimguiean ineoiem, wc may cuiajjuic a - uy 

a 2 = (c cos Al — b) 2 + (c sin Al) 2 
Simplifying the right side we get 

a a = c 2 cos 2 Al - 2bc cos Al + b 2 + c 2 sin 2 Al 
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(c cos A1, c sin AD 
B1 




A1 
(0,0) 



C1 
(b,0) 



Fig. 9-7 



Rearranging terms 

a 2 = b 2 + c 2 (cos 2 Al + sin 2 Al) — 2bc cos Al 
Since cos 2 Al + sin 2 Al = 1, we finally get 

a 2 = b 2 + c 2 - 2bc cos Al 



(9-8) 



Equation (9-8) is the statement of the Law of Cosines solved for vertex Al at 
the origin. Placing 131 at the origin we would get 



b 2 = a 2 + c 2 - 2ac cos Bl 
and placing CI at the origin would produce 
c 2 = a 2 + b 2 — 2ab cos CI 



(9-9) 



(9-10) 



In the form of Eqs. (9-8)-(9-10) the Law of Cosines is appropriate for 
handling problems in which two sides and the included angle are given. Once 
you obtain the third side by taking the square root of the right side of the 
equation, you may use the Law of Sines to obtain a second angle, or you may 
proceed as for the side-side-side congruence. 

If we solve Eq. (9-8) for cos Al, we get 



cos Al = 



b 2 + c 2 - a 2 
2bc 



(9-11) 



So, if we are faced with a side-side-side congruence, we may easily find the 
value of cos Al. Now our only problem is to get the value of Al from the value 
of cos Al. This will require the ATN(X) function. We should know that 



tan Al 



sin Al 



cos Al 
and for Al between and 180 degrees, sin Al is always positive. Thus, 

sin Al = VI - cos 2 ^! (9-12) 
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Thus 



cos Al 
And so, 

Now, we will be able to translate Eqs. (9-ll)-(9-13) into BASIC program 
statements. From Eq. (9-11) we get 

LET T = (B " 2 + C °° 2 - A 00 2)/(2 ° B ° C) 
and from Eq. (9-12) we get 

LETT1 = SQR(1-T 00 2) 
and finally from Eq. (9-13), 

LETA1=ATN(T1/T) 

These three statements constitute the heart of our program LAWC0S which 
reads three sides from data and prints all six parts of the triangle. See espe- 
cially lines 50, 60, and 70. 

We could have done the work of lines 90 through 120 by shuffling the data 
around and using lines 50 through 80 as a subroutine. 

SUMMARY 

This section has been devoted to solving triangles which may be uniquely 
determined. We have developed the Law of Sines into a program to solve the 
case of two angles and a nonincluded side and indicated that, with a few 
changes, the angle-side-angle case is solvable by the Law of Sines also. 

The Law of Cosines has been used to find the angles of a triangle whose 
sides are known. It has been indicated that the case of side-angle-side is appro- 
priate for the Law of Cosines also. This covers the uniquely determined cases 
except hypotenuse-leg. There remains the ambiguous case. If two sides and a 
nonincluded angle are given, there may be two, one, or no triangles possible. 
If solvable, such triangles are solvable by the Law of Sines. This is left to the 
student in the exercises. 

PROBLEMS FOR SEC. 9-3 

1) Write a program to solve the angle-side-angle case. 

2)' Write a program to handle given two angles and a nonincluded side, and two 
angles and the included side. Use an item of data to determine which kind of data 
is provided. 

3) Modify LAWC^S to use lines 50, 60, 70, and SO as a su'urouuiie uuu &iiuuits 
the data as discussed in text. 

4) Write a program to solve the side-angle-side case. 

5) Write a program to handle given three sides, and two sides and the included 
angle. Use an item of data to designate which set of data is provided. 



LAWC0S 
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10 

15 

20 

30 

40 

48 

50 

58 

60 

68 

70 

78 

80 

88 

90 

100 

1 10 

120 

130 

140 

150 

500 

510 

520 

530 

999 

RUN 

LAWC0S 



DEF FNR<X>=INT<XflOO+.5>/100 

PRINT " "." A"," B". " C" 

READ A.B.C 

IF A«0 THEN 999 

PRINT "THE SIDES ARE". A, B, C 

REM T IS REALLY C0S(A1) 

LET T=(Bt2+C»2-At2)/(2*B*C) 

REM Tl IS REALLY SIN<A1> 

LET T1=S0R(1-T»2) 

REM Al IS THE ANGLE INCLUDED BY SIDES B AND C 

LET A1=ATN<T1/T) 

REM CONVERT RADIANS T0 DEGREES 

LET Al=Al*180/3. 14159 

REM WE N0W REPEAT THE PR0CESS T0 FIND ANGLE Bl 

LET T=(At2+C'2-Bt2)/C2*A*C) 

LET T1=SQRC1-Tt2) 

LET Bl=ATN(Tl/T) 

LET Bl=Bl»180/3. 14159 

PRINT "THE ANGLES ARE", FNRCA1 ) . FNRCB1 >. 180-tFNRC Al )*FNR<B1 ) ) 

PRINT 

G0T0 20 

DATA 3. 4, 5, 300. 400. 500 

DATA 1.73205. 1.2 

DATA 2.2,3 

DATA 0.0,0 

END 



THE SIDES ARE 
THE ANGLES ARE 

THE SIDES ARE 
THE ANGLES ARE 

THE SIDES ARE 
THE ANGLES ARE 

THE SIDES ARE 
THE ANGLES ARE 



A 
3 
36.87 

300 
36.87 

1.73205 
60 

2 
41.41 



B 
4 
53. 13 

400 
53.13 

1 
30 

2 
41.41 



C 
5 
90 

500 
90 

2 
90 

3 
97. 18 



DONE 



/ 6) Write a program to solve the ambiguous case. Be sure to provide for no 

triangles, one triangle, or two triangles. 

■J 7) Rewrite problem 3) to handle degrees, minutes, and seconds. 

/ 8) Rewrite problem 4) to handle degrees, minutes, and seconds. 

9) Project: Write a single program to process data in four uniquely determined 
cases. You might include the HL case. 



9-4 POLAR COORDINATES 

Every point in a rectangular coordinate system may be named by a unique 
pair of real numbers. The pair is usually designated (X, Y). If we plot a point 
(X, Y), we find that we may determine another ordered pair of numbers, one 
of which is the distance from the origin and the other is an angle measured 
from the positive portion of the X-axis to the ray with endpoint at the origin 
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and containing point (X, Y). If we call the distance R and the measure of the 
angle G, we may designate a new ordered pair (R, G). Refer to Fig. 9-1. 

Ordered pairs of this kind are called polar coordinates. The ray consisting of 
the origin and the positive portion of the X-axis is called the polar axis and 
the origin is called the pole. Our new coordinate system appears in Fig. 9-8. 
Such a coordinate system is particularly adapted to plotting periodic functions 
with finite upper and lower bounds. 

(R, C) Fig. 9-8 




POLE POLAR AXIS 

Note that there is no one-to-one correspondence between ordered pairs and 
plotted points for the polar coordinate system. How do we designate the 
origin? (0, 0°)? How about calling it (0, 10°) or (0, -25°)? Also note that 
(1,45°) and (1,405°) name the same point. Any particular ordered pair does 
name a unique point, but every point may be named by an unlimited number 
of ordered number pairs in this polar coordinate system. 

Looking at the polar equation R = cos G suggests that for some values of G 
we would like to allow R to take on negative values. So we extend the defini- 
tion of R to permit this. The absolute value of R is the distance of the point 
from the pole and we define (— R, G) and (R, G + 180°) to name the same 
point. 

Some polar equations are relatively easy to convert to rectangular form. 
For instance, 

R = 2 cos G 

is equivalent to 

2X 



VX* + Y* = 



VX* + Y* 

which is equivalent to 

X 2 + Y 2 - 2X = 

which turns out to be a circle with radius 1 and center at the point (1,0). 
However, other polar equations are not so easily identifiable when converted 
and so are more appropriate to plot on a polar coordinate system. Consider, 

R = 1 - 2 cos G (9-14) 

R = 2 + sin 2G (9-15) 

R = 1 + 2 cos G - 3 sitf G (9-16) 

No matter how you approach plotting any of these, you run into a tremendous 
amount of calculating. 
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We can easily get the coordinates of the points to plot for all three of these 
in the same computer program. 

In program P0LAR we have simply defined a function for each of the Eqs. 
(9-14), (9-15), and (9-16), and put the value of the angle G in a loop to get 
values every 15 degrees. We are not obligated to define functions, but with 
converting to radians and rounding off to hundredths this seems a reasonable 
approach. Now if we want different functions we only need change the 
printing in line 10 and redefine the new functions in lines 30, 40, and 50. Of 
course the actual plotting is left to the student to do on polar coordinate paper. 



P0LAR 



5 LET K=3. 14159/180 






10 PRINT "ANGLE". "1-2COSCG) 


". "2+SIN(2G>", 


■M+2C0S(G>-3SIN<G)»2" 


20 DEF 


FNRCX) 


= INT(X*100+.5)/100 




30 DEF 


FNACX) 


= 1-2*C0SCK*X> 






40 DEF 


FNBCX) 


= 2+SINC2*K*X) 






50 DEF 


FNCCX) 


= 1 + 2*C0SCK*X>- 


3*SIN(K*X> t2 




60 F0R 


G=0 T0 


360 STEP 15 






70 PRINT G>FNRCFNACG)>,FNR(FNBCG>>>FNR<FNCCG>) 


80 NEXT G 








9 EN D 










RUN 










P0LAR 










ANGLE 




1-2C0SCG) 


2+SINC2G) 


1 + 2C0SC G)- 3SINC G) ' 2 







-1 


2 


3 


15 




-.93 


2.5 


2. 73 


30 




-. 73 


2.87 


1.98 


45 




-.41 


3 


.91 


60 







2.87 


-.25 


75 




.48 


2.5 


-1.28 


90 




1 


2 


-2 


105 




1.52 


1. 5 


-2.32 


120 




2 


1.13 


-2.25 


135 




2. 41 


1 


-1.91 


150 




2. 73 


1.13 


- 1.48 


165 




2.93 


1.5 


-1.13 


180 




3 


2 


-1 


195 




2.93 


2.5 


-1.13 


210 




2. 73 


2.87 


-1.48 


225 




2. 41 


3 


- 1.91 


2 40 




2 


2.87 


-2.25 


255 




1 . 52 


2.5 


-2.32 


2 70 




1 


2 


-2 


28 5 




. 48 


1.5 


- 1 .28 


300 







1.13 


-.25 


315 




-. 41 




.91 


330 




-• 73 


1.13 


1.98 


345 




-.93 


1.5 


2. 73 


360 




- 1 


2 


3 



D0NE 



SUMMARY 

The computer is an invaluable aid to obtaining values of ordered pairs of 
polar coordinates for polar equations. 
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PROBLEMS FOR SEC. 9-4 



1) Obtain polar coordinates for plotting any of the following polar equations. 'It 
would be instructive to plot the graph as well.) 



(a) 


R = cos 2G 


(b) 


R = cos 3G 


(c) 


R = cos 4G 


(d) 


R = sin 2G 


(e) 


R = sin 3G 


(f) 


R cos G = 1 


(g) 


R = 1 + R cos G 


(h) 


R = sin G -|- cos G 



2) Write a program to convert from polar coordinates to rectangular coordinates 
for any of the polar equations in problem 1). 

/ 3) Write a program to store rectangular coordinates in an array for any of the 
polar equations in problem 1) except (f) and (g) and then rearrange the ordered pairs 
in order of increasing values of X. Print the resulting set of ordered pairs. Plot the 
graph on rectangular coordinate paper and compare it with the plot obtained in 
problem 1). 



CHAPTER 10 



Complex lumbers 



10-1 FUNDAMENTAL OPERATIONS 

In the development of mathematics we find that we cannot solve the 
equation 

X 2 + 1 = 

if we are limited to real numbers. We want to say 

X = V=T or X = - y/-L 

However, such numbers are not allowed in the real number system. So we 
define a new number i such that 

i 2 = —1 or i = y/—l 

Then, if we should try to solve X 2 + 2X + 2 = using the quadratic formula, 
we get 

x= -2±v/?=ir or x = -2 ± v=i 

and we decide to call y/—4 the same number as i\/4 which is 2i. So now 

v -2 ± 2i 
X ~ 2 

or X = -1 + i 
= -l-i 

These two numbers are representative of complex numbers in rectangular form. 
In general, rectangular' form is written as a + bi, where a and b are real num- 
bers. Another number could be written c + di. Of course, the computer cannot 
handle a + bi because it is limited to real numbers. But we can deal with the 
two real numbers a and b. This means that we will be working with complex 
numbers in ordered pair form or (a, b) form. Since the computer terminal is 
limited to capital letters, we use (A, B). 

147 
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For two complex numbers (A, B) and (C, D) we define equality: 

(A, B) = (C, D) 
if and only if 

A = C and B = D (10-1) 

Their sum is found by 

(A,B) + (C, D) = (A + C.U + D) (10-2) 

and their product is found by 

(A, B) • (C, D) = (AC - BD, AD + BC) (10-3) 

Equations (10-1), (10-2), and (10-3) are relatively straightforward consid- 
erations for a computer program. We can test a pair of real numbers for 
equality with another pair or we can perform the addition of Eq. (10-2) or the 
multiplication of Eq. (10-3). As an example, let us write a short program to 
add two complex numbers on INPUT. See ADDA, B. 

ADDA.B 

10 PRINT "THIS PR0GRAM ADDS TW0 COMPLEX NUMBERS IN A. B FORM" 

20 PRINT 

30 PRINT " FIRST NUMBER"; 

40 INPUT A, B 

50 IF A=999 THEN 999 

60 PRINT " SEC0ND NUMBER"; 

70 INPUT CD 

80 PRINT "THE SUM IS ( '•{ A+ CJ ", "I B* D; ") " 

90 GOTO 20 

999 END 

RUN 

ADDA.B 

THIS PROGRAM ADDS TWO COMPLEX NUMBERS IN A, B FORM 

FIRST NUMBER?1>4 
SECOND NUMBER?0*0 
THE SUM IS ( 1 ,4 ) 

FIRST NUMBER?1» 5 
SECOND NUMBER?3,8 
THE SUM IS ( 4 .13 ) 

FIRST NUMBER?-467»902 
SECOND NUMBER?56,-I234 
THE SUM IS (-41 I ,-332 1 

FIRST NUMBER?999, 1 



Subtraction and multiplication are also relatively straightforward. 
Now consider division: 

(A,B)/(C,D) = (X,Y) (10-4) 
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Equation (10-4) may be defined in terms of multiplication: 

(A, B) = (X, Y) • (C, D) 

(A, B) = (XC - YD, XD + YC) 

By the definition of equality for complex numbers, 

A = XC - YD and B = XD + YC 

Solving for X and Y we get 

v AC + BD , v BC - AD 

X = C^ + D^ imd Y = "CHD^ 

This is a little more complicated than the other operations, but still manage- 
able. 

SUMMARY 

The computer may be programmed to work with complex numbers, if we 
represent them as ordered pairs of real numbers. The four fundamental oper- 
ations of addition, subtraction, multiplication, and division may all be done 
by formula. 

PROBLEMS FOR SEC. 10-1 

1) Write a program to (live the sum, difference, product, and quotient for pairs 
of complex numbers assigned as data. 

2) Write a program to compute and print the complex roots of quadratic 
equations. 

3) Write a program to test the commutative properties of both addition and 
multiplication for five pairs of complex numbers. 

4) Demonstrate that subtraction and division are not commutative. 

5) Write a program to generate random complex numbers. Then test the asso- 
ciative property for both addition and multiplication. 

J 6) Find the reciprocal of complex numbers assigned as data. 

7) Whenever we talk about ordered pairs of real numbers, the rectangular 
coordinate system should come to mind. Think of (A, B) as a plotted point on a 
graph with an A-axis and a B-axis. Write a program to find the distance from the 
origin of five complex numbers assigned as data. 

10-2 POLAR COORDINATES 

If we think of ordered pairs of real numbers as being associated with a 
rectangular coordinate system, we may plot a point representing (A, B) as 
shown in Fig. 10-1, where the distance from the B-axis is the absolute value 
of A and the distance from the A-axis is the absolute value of B. 

Whenever we plot an ordered pair of real numbers on a rectangular 
coordinate system, we may associate the point with another ordered pair of 
real numbers. In the new pair, the first number is the distance from the origin 
and the second is the angle whose initial side is the positive A-axis and whose 
terminal side is the ray with an endpoint at the origin and containing the point 
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(A, B) 



Fig. 10-1 



(A, B). We use R for the distance and call it the absolute value of the complex 
number (A, B). R is found from (A, B) by 



R= |(A,B)| = VA 2 + B 2 

We use G for the angle. G may be found from ( A, B) by 

G = arctan (A/B) 

G is sometimes called the argument of the complex number. We may now 
refer to complex numbers in polar form as (R, G). This form for complex 
numbers is the same as the form for (X, Y) ordered pairs converted to polar 
form in Chap. 9, with the one exception that we prefer not to allow R to be 
negative for complex numbers. 

So we see that for every complex number we may choose a rectangular 
form or polar form depending on which form is appropriate to the problem at 
hand. We saw in Sec. 10-1 that addition and subtraction worked out easily 
in (A, B) form, but that multiplication and division were more cumbersome. 
Let us look at multiplication in (R, G) form. 

It turns out that a third form will be helpful in establishing the multiplica- 
tion algorithm. From (R, G) we get that A = R cos G and B = R sin G, and 
similarly for (Rl, Gl) we get that C = Rl cos Gl and D = Rl sin Gl. Using 
the old formula to multiply (A, B) by (C, D) we get 

(R cos G, R sin G) (Rl cos Gl, Rl sin Gl) 

= (RR1 cos G cos Gl - RR1 sin G sin Gl, 
RR1 sin G cos Gl + RR1 cos G sin Gl) 

After factoring, the right side becomes 



(RRl(cos G cos Gl - sin G sin Gl), RRl(sin G cos Gl + cos G sin Gl)) 



(10-5) 



n. i i... 



and 



cos G cos Gl — sin G sin Gl = cos (G + Gl) 
sin G cos Gl + cos G sin Gl = sin (G + Gl) 



(10-6) 
(10-7) 
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Substituting Eqs. (10-6) and (10-7) into (10-5) we get 

(RR1 cos (G + Gl), RR1 sin (G + Gl)) 

which is a plotted point associated with a distance from the origin of RR1 and 
an angle of G + Gl. So 

(R, G)(R1, Gl) = (RR1, G + Gl) (10-8) 

This means that to multiply two complex numbers in polar form we should 
multiply their absolute values and add their arguments. This is less cumber- 
some than the method of Sec. 10-1. 

It follows from Eq. (10-8) that to divide two complex numbers in polar 
form we divide their absolute values and subtract their arguments: 

(R, G)/(R1, Gl) = (R/Rl, G - Gl) 

Again this is less cumbersome than the formula of Sec. 10-1. 

Let us multiply some randomly assigned complex numbers in polar form. 
We generate arguments in degrees and absolute values in units 1 to 10. See 
MLTR, G. 

MLTR, G 

10 DEF FNCCZ>=INT<Z*RNDCZ)+1> 

20 F0R X=l T0 6 

30 LET R=FNCC10> 

40 LET G=FNCC360> 

50 LET R1=FNC<10) 

60 LET G1=FNC<360> 

70 PRINT "<"lRt", "t GJ">*<"*JRl;"*"J Gl i ") = C "t R*RU ", "! G+G1J">" 

80 NEXT X 

90 END 

RUN 

MLTR, G 

( 10 , 135 )*C 2 » 311 )=( 20 , 446 ) 

(6 #98 >*< 9 . 341 )=( 54 , 439 ) 

C 9 , 6 >*( 1 . 231 )=( 9 , 237 ) 

C 10 .95 )*< 8 > 307 )=( 80 > 402 ) 

C 6 . 60 >*< 5 , 356 >=< 30 . 416 ) 

C 10 , 139 )*C 2 , 343 )=C 20 , 482 ) 

D0NE 



SUMMARY 

Complex numbers may be represented in polar form as (R, G), where R is 
the absolute value and G is the angular location starting at the positive end of 
the A-axis on an (A, B) graph. We have seen that while addition and subtrac- 
tion are easily done in (A, B) form, multiplication and division are better 
suited to (R, G) form. (R, G)(R1, Gl) = (RR1, G + Gl) and (R, G)/(R1, Gl) = 
(R/Rl, G — Gl). To multiply in polar form, multiply absolute values and add 
arguments. To divide in polar form, divide absolute values and subtract 
arguments. 
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PROBLEMS FOR SEC. 10-2 



1) Write a program to find the quotient of two complex numbers in polar form. 

2) Write a program to print the positive integral powers of (1, 45°) from 1 to 8. 

3) Write a program to convert from (R, G) form to (A, B) form. 

J 4) Write a program to convert complex numbers from (A, B) form to (R, G) form. 

You will want to use the ATN(X) computer function here and be sure you have the 

angle in the correct quadrant. To check this, simply try numbers in all four quadrants. 

J 5) Write a program to take two complex numbers in (A, B) form and print their 

product in (R, G) form. 

J 6) Write a program to print the positive integral powers of a complex number in 

(A, B) form. Keep the result in (A, B) form. 

■J 7) Modify MLTR, G to generate negative as well as positive numbers for angles. 

Print the resulting angle as a value between — 360 and +360 degrees. 

10-3 POWERS AND ROOTS 

We have seen that for multiplying two complex numbers the polar form 
provides a very convenient algorithm. If we wish to square a complex number, 
i.e., multiply it by itself, we get 

(R, G)- = (R-, G + G) or (R 2 , 2G) 
We also see that for a positive integer n, 

(R, G) n = (R n , nG) (10-9) 

It can also be shown that an nth root of (R, G) may be found by 

(R, G)Vn - (RVn, G/n) (10-10) 

where R 1/n means ->JJ/R. Equations (10-9) and (10-10) constitute a portion of 
De Moivre's theorem. It can also be shown that every nonzero complex num- 
ber has exactly n complex nth roots. 

Let us find the four complex fourth roots of unity. By taking the square roots 
of the square roots of 1, we should get 1, i, — 1, and — i, which in (R, G) form 
are (1,0°), (1,90°), (1, 180°), and (1,270°). Using De Moivre's theorem, 

(1, O ) 1 ^ = (1V4, 0/4°) or (i )0 °) 

However, there should be three more. Now we see that there is a tremendous 
advantage associated with the nonuniqueness for polar coordinates. By writing 
unity (1, 0°) as (1, 360°) we may apply Eq. (10-10) again: 

(1, SeO ) 1 /* = (1, 90°) 
Writing (1, 0°) as (1, 720°) we get 

(1, 720°)^ = (1, 180°) 
and finally (1, 0°) = (1, 1080°) gives 

(1, lOSO ) 1 ^ = (l, 270°) 
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R00TS 

10 PRINT "TAKE R0OTS 0F COMPLEX NUMBERS IN P0LAR FORM" 

20 READ R, G,N 

30 PRINT "THE";NJ", "jNj"TH R00TS 0F < "J R; ", "; G; ") ARE:" 

40 F0R X=l T0 N 

50 PRINT "C";Rt ( 1/N)J","; G/N;")" 

60 LET G=G+360 

70 NEXT X 

80 PRINT 

90 G0T0 20 

100 DATA 1,0, A 

110 DATA l<0,3 

120 DATA 1,45, 2 

130 DATA 3, 9 0,3 

1 AO END 

RUN 

R00TS 

TAKE R00TS 0F COMPLEX NUMBERS IN P0LAR F0RM 

THE A , A TH R00TS 0F C 1 ,0 ) ARE: 

CI. , ) 

CI. , 90 > 

C 1. , 180 ) 

CI. , 270 > 

THE 3 ,3 TH R00TS 0F C 1 .0 ) ARF: 

CI. .0 ) 

C 1. , 120 ) 

CI. , 2 40 ) 

THE 2 ,2 TH R00TS OF C 1 ,45 ) ARE: 

CI. , 2S.5 ) 

C 1. , 202.5 ) 

THE 3 ,3 TH R00TS 0F C 3 ,90 ) ARE: 

C 1.44225 , 30 ) 

C 1.44225 ,150 ) 

C 1.44225 , 270 ) 



OUT 0F DATA IN LINE 20 

as expected. Suppose we add 360 degrees again. Then G = 1440° and 
1440(1/4) = 360° which we have already in (1, 0°). Finding roots of complex 
numbers in polar lot in becomes a very straightforward computer program. 
See R00TS. 

PROBLEMS FOR SEC. 10-3 

1) In program R00TS have the computer convert the roots to (A, B) form. 
/ 2) Write a program to find the n complex nth roots of complex numbers in (A, B) 
form and print the results in (A, B) form. 
J 3) In program H00TS print the roots in both (A, B) and polar form. 



CHAPTER 11 



11-1 FUNDAMENTAL OPERATIONS 

We define a real polynomial in X as an expression that can be written in 
the form 

A N X S + Ajj.jX*- 1 + • • • + A 2 X 2 + AjX + A 

where N is a non-negative integer, X is a complex number, and the A N are 
constant real coefficients. The following are examples of polynomials in X: 

5 X-3 X 8 + 3X° - X H- 1 X^ + 3X-4 

For the polynomial 5, note that 5 = 5X" so the polynomial consists of the term 
A u , which is 5. The number is considered a polynomial. All real polynomials 
except the zero polynomials have degree i where AjX> is the term of the 
polynomial with the greatest value of i for Aj not equal to 0. Polynomials may 
be used to describe many physical problems. For instance, the trajectory of a 
projectile is described by a second-degree polynomial. 

We may perform operations on polynomials much as we perform opera- 
tions on explicit numbers. You have had considerable experience adding and 
subtracting such expressions. You have often multiplied two binomials of the 
form (AX + B)(CX + D). One of the problems in Chap. 1 was to perform just 
that multiplication by computer. We now develop a program to multiply two 
polynomials. 

Multiplication 

Clearly we will perform operations on the computer by working with the 
coefficients and being careful to line things up properly. This means being very 
much aware of missing terms and inserting zero coefficients where necessary. 
Let us begin with an example, say (2X + 7)(3X- + 11X — 5). By hand we get 

154 
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3X 2 + 11X - 5 

2X+ 7 

21X-' + 77X - 35 
6X 3 + 22X 2 - IPX 

6X a + 43X* + 67X - 35 

where all the X x were known in advance and do not depend on the coefficients. 
So the problem could have been done in the following manner: 



3+11- 

2 + 


5 

7 


21 + 77 - 
6 + 22-10 


35 



6 + 43 + 67-35 (11-1) 

The program can be set up by putting 3, 11, and —5 in one computer list, 
2 and 7 in another, and making provision for putting 6, 43, 67, and —35 in a 
third list. We may find the organization to be a little easier by thinking of the 
computation in Eq. (11-1) as being set up in columns numbered from right to 
left. (If your computer permits subscripts in a list, you may use that to 
good advantage here by starting with 0.) 



Column numbers 
Column numbers 





3 


+ 11 

2 


- 5 
+ 7 


6 


21 

+22 


+77 
-10 


-35 


6 


+43 


+67 


-35 



We observe that when we multiply two numbers in column 1, we put the 
result in column 1; when we multiply a number from column 1 by a number 
from column 3, we put the result in column 3; and when we multiply a 
number in column 2 by a number in column 3 we put the result in column 4. 
This suggests that multiplying a number in column I by a number in column J 
calls for the result to go in column (I + J — 1). [If is allowed, then the 
result goes in column (I + J).] So, if we store the two polynomials being 
multiplied in an F list and an S list and the product in a P list, our computer 
program will have an instruction to store F[l] ° S[J] inP[I + J — 1]. We must 
also provide for subtotals. Thus the program statement will be 

XXX LET P[I + J - 1] = P[I + J - 1] + F[I] • S[J] 

where we initialize the P list at 0. Program TRI ° BI multiplies the two poly- 
nomials of our example. 

It will be left as an exercise to modify TRI ° BI to multiply pairs of poly- 
nomials of various degrees. 



156 Basic BASIC 



TRI*BI 



10 

20 

30 

A0 

50 

58 

60 

70 

80 

90 

98 

100 

1 10 

120 

128 

130 

140 

150 

160 

1 70 

180 

188 

190 

200 

210 

218 

219 

220 

230 

RUN 

TRI*B1 



HEM LINES 10 
F0R X=3 T0 1 
READ FCX] 
PRINT FCXU 
NEXT X 
PRINT "TIMES 



THR0UGH 40 READ AND PRINT THE FIRST POLYNOMIAL 
STEP -1 



REM LINES 60 THROUGH 90 READ AND PRINT THE SECOND POLYNOMIAL 

FOR Y = 2 TO 1 STEP - 1 

READ SCY3 

PRINT SCY]; 

NEXT Y 

REM 100 THROUGH 120 SET THE RESULT LIST AT ALL ZEROS 

FOR W= 1 TO A 

LET PCWD = 

NEXT W 

REM LINES 130 THROUGH 170 D0 THE ACTUAL MULTIPLYING 

FOR 1 = 1 T0 3 

FOR J=l T0 2 

let pti+j-n=pci+j-n + Fcn*scjj 

NEXT J 

NEXT I 

PRINT "YIELDS "; 

REM AND NOW WE PRINT THE 'ANSWER LIST" 

FOR Z=A TO 1 STEP -1 

PRINT PCZJ; 

NEXT Z 

REM THE FIRST THREE NUMBERS REPRESENT 3Xt2+llX-5 

REM THE NEXT TWO NUMBERS REPRESENT 2X+ 7 

DATA 3» 1 l,-5>2« 7 

END 



3 

DONE 



1 1 



TIMES 



YIELDS 



67 



-35 



Division 

When working with polynomials we often wish to perform the operation of 
division. It is especially frequent that we wish to divide by a polynomial of the 
form X — R where R is a constant. Let us divide 2X 3 — 3X 2 — 10X + 3 by 
X — 3 and see what can be done to computerize the operation. As with multi- 
plication, we will end up considering only the coefficients. First we do the 
division by hand: 

2X 2 + 3X - 1 



X- 


- 3)2X 3 - 
2X 3 - 


-6X 2 


- 10X + 3 






3X 2 - 
3X 2 - 


- 10X 

- 9X 








- X + 3 

- X + 3 



Every term in the computation that will be written twice in every problem 
appears in bold face. Now if we simply decide not to write things twice and 
at the same time compress the problem vertically, we get 
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2X 2 + 3X - 1 



3)2X3 _ 3X 2 _ 10X + 3 
-6X 2 - 9X + 3 



3X 2 - X 

We saw that for multiplication, as long as everything was lined up correctly, 
we could eliminate all the X's. Also note that we are dividing only by 
binomials of the form X — R, so the coefficient of X will always be 1. Let us 
not even write it. Now we have the division in the following form: 

2 + 3-1 



-3)2 -3-10 + 3 
-6- 9 + 3 



3- 1 
Since the coefficient of X in the divisor is always 1, the coefficient of each term 
in the quotient will always be the same as the coefficient of the leading term 
of the expression into which we divide the X term. Thus it is no accident that 
we see 3 — 1 in the bottom row as well as in the answer. So, if we agree to 
simply insert the leading coefficient of the polynomial into which we are 
dividing X - R in front of the bottom row of figures, we will always have 
the coefficients of the quotient polynomial and we would not need the top 
row. We now have reduced the problem to an iteration involving "multiply 
and subtract" repeatedly, and the division looks like 

-3)2 -3-10 + 3 
-6- 9 + 3 



2 + 3- 1 
which we got by the following set of steps: 1) copy down the first coefficient 
of the original polynomial 2; 2) multiply 2 by -3 to get -6 and write it down 
under the second term of the original polynomial; 3) subtract to get 3, mul- 
tiply 3 by —3 to get —9; 4) write it down beneath the next term to the right 
and subtract to get -1; 5) multiply -1 by -3 to get +3 and write it down 
beneath the next term; 6) subtract to get and we have a remainder. So we 
see that 2 + 3 — 1 is interpreted as 2X 2 + 3X - 1. 

Since subtracting a number may be accomplished by multiplying the num- 
ber to be subtracted by —1 and adding, we may convert "multiply and sub- 
tract" to "multiply and add" if we multiply the —3 by —1 to get 3. Or for 
X — R we just use R. Let us complete the development of this algorithm by 
inserting the in the last column to the right to indicate a remainder of 0. 

3)2-3-10 + 3 
6+ 9-3 

2 + 3- 1 + 
Dividing 3X 4 - 2X 2 + 5X - 2 by X + 2 results in 

-2)3 + 0- 2+5-2 
-6 + 12-20 + 30 



3-6 + 10-15 + 28 
yielding a quotient of 3X 3 — 6X 2 + 10X — 15 and a remainder of 28. 



158 Basic BASIC 

Division by the algorithm we have just developed is usually called synthetic 
division. Since this is essentially an iterative process, we should be able to get 
the computer to perform division in this way. We put the original polynomial 
in a P list and the quotient polynomial in a Q list. Let us store the division 
constant in R. For every division problem of the kind we are working with 
here, the first coefficient in the quotient polynomial is the same as the first 
coefficient in the dividend polynomial. So we need a line in the program which 
says LET Q[4] = P[4]. See line 70 in program SYNDIV. 

SYNDIV 

5 PRINT "SYNTHETIC DIVISION!" 

8 REM READ THE DIVISOR 

10 READ R 

18 REM READ AND PRINT ORIGINAL POLYNOMIAL IN LINES 20 THRU 50 

20 FOR N=4 T0 1 STEP -1 

30 READ PCNJ 

40 PRINT PCNJJ 

50 NEXT N 

60 PRINT "DIVIDED BY X -"J RJ "YIELDS" 

68 REM FIRST QUOTIENT COEFFICIENT EQUALS FIRST 

69 REM COEFFICIENT OF ORIGINAL POLYNOMIAL 

70 LET QC4] = PC4J 
80 PRINT QC4JJ 

90 FOR X=3 TO 1 STEP -1 

98 REM "MULTIPLY AND ADD" 

100 LET QCX3=PCX]+QCX+13*R 

110 PRINT QCXJJ 

120 NEXT X 

130 DATA 3*2.-3,-10,3 

140 END 

RUN 

SYNDIV 

SYNTHETIC DIVISION! 
2 -3 -10 3 DIVIDED BY X - 3 YIELDS 

2 3-10 

DONE 



In SYNDIV, 2 3 -1 is to be interpreted as 2X 2 + 3X - 1 with 
a remainder of 0. Let us try another: 

1 30 DATA 2, 3, - 1 , A, - 5 

RUN 

SYNDIV 

SYNTHETIC DIVISIONS 
3-1 4-5 DIVIDED BY X - 2 YIELDS 

3 5 14 23 



The 3 5 14 23 is to be interpreted as 3X 2 + 5X + 14 with a 

remainder of 23. 
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SUMMARY 



You should be able to add and subtract polynomials easily using computer 
lists. We have written an elementary program for multiplication of two poly- 
nomials, and we have written a program to perform synthetic division using 
X — R as the divisor. 

PROBLEMS FOR SEC. 11-1 

1) Write a program to find the sum of two polynomials assigned as data. Be sure 
to avoid printing leading zero coefficients when adding pairs similar to 3X 4 -f 6X — 4 
and - 3X-» + 5X3 _ 3X + 1. 

2) Do problem 1) for subtraction. 

3) Write a single program to add or subtract pairs of polynomials as determined 
by an item of data. (Example: use S = 1 for add and S = f or subtract.) 

4) Prepare a program to multiply two polynomials of varying degrees. 

5) Write a program to multiply three polynomials. 

6) Generate pairs of random polynomials of random degree and multiply them. 
Print the original polynomials and the product. Be sure to allow negative coefficients. 
/ 7) Extend SYNDIV to divide X — R into polynomials of any degree. Also have the 
computer print the remainders with a message to the effect that the remainder 
equals whatever it comes out to. 

J 8) Write a program to print the first 11 integral powers of (X + 1). 

y 9) Write a program to divide any polynomial by any polynomial of equal or 

lesser degree. Suggestion: get data from problem 6. 

11-2 INTEGRAL ZEROS 

It is common practice to abbreviate any polynomial and call it P (X) for a 
polynomial in X (read as P of X). We often look at the polynomial equation 

Y = P ( x, 

and its graph. The values of X for which Y = are called the zeros of the 
function. You have solved many quadratic functions in which there were always 
two zeros. Sometimes they were equal, sometimes integral, sometimes real, 
and sometimes complex. It can be shown that every Nth-degree polynomial 
equation has exactly N complex zeros. Before we actually look for any zeros 
of Y = P (X ) we need to have some theorems available. 

Remainder Theorem 

According to the Remainder theorem, if a polynomial is divided by X — Z, 
then the remainder is the value of the polynomial when Z is substituted 
for X. Dividing P (X) by (X — Z) we get 

R 



-MX) _ n , 

(X-Z) ~ V(X) + 1x - Z) 

where Q (X) is the quotient polynomial. Multiplying through by (X — Z) we get 
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P(x,=Q ( x, °(X-Z) + R 
and we can see that if we substitute Z for X, then X — Z = and 

P(Z) = R (11-2) 

Looking at SYNDIV we see that substituting 3 for X in 2X 3 - 3X 2 - 10X 
+ 3 gives 54 - 27 - 30 + 3 or 0, confirming that P (3) = 0, which is the 
remainder after dividing by X — 3. We also see that substituting 2 for X in 
3X3 _ X2 + 4X - 5 gives 24 - 4 + 8 - 5 or 23, confirming that P (2) = 23, 
which is the remainder after dividing by X — 2. 

Factor Theorem 

The Factor theorem states very simply that if the value of R in Eq. (11-2) 
is 0, then X — Z is a factor of P (X) . Looking at SYNDIV again, we see that 
X - 3 is a factor of 2X 3 - 3X- - 10X + 3 while X - 2 is not a factor of 
3X 3 — X 2 + 4X — 5. Now all we have to do is find a value of Z so that 
P ( z) = and Z is a zero of the function. 

Search for Integral Zeros 

What integers do we try for Z to test P (S5) for 0? We have assumed that 
there are N complex zeros. Let us call them Z N , Z li _ 1 , . . ., Z 2 , Z x . It can be 
shown that 

(X - Z N )(X - Z N _!) • • • (X - Z 2 )(X - Z x ) 

= A N X N + A N _ 1 X N "i + • • • + A X X + A 

Multiplying the left side out we should see that the only constant term in the 
product is (-Z N ) (-Z N _ 1 )---(-Z 2 ) (-Z x ) which simplifies to (-1) N (Z N ) 
(Zn-i) • • ■ (Z 2 ) (Z t ) and must equal the constant term in the product poly- 
nomial which is A . And so it follows that if a polynomial has any integral 
zeros, they must be factors of the constant term A . That is not to say that all 
integral factors of A are zeros of the polynomial. 

This should provide sufficient basis for writing a computer program to find 
the integral zeros of a polynomial function. We can define a computer func- 
tion and test for FNP(X) = for all integral factors of the constant term. If 
we continue to enter the coefficients of polynomials in computer lists as we 
have been doing, then we know that the constant term will always be P[l]. For 
our first program, let us define our function using the list entries as coefficients 
in a DEF statement and look at only third-degree polynomials. 

One feature of the program that requires comment is the finding of num- 
bers to test for factors. These numbers must be in the interval — P[l] to P[l] 
including the end numbers. Well, if P[l] is negative, we want to step -1 
and if r[i] is positive, we want to step +1. This is a perfect place to use 
SGN(P[1]). See line 80 of program INTZER. It would be useful to print that 
there are no integral zeros if that turns out to be the case. In order to do 
that, we need a switch which is off initially and which we turn on only if we 
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find at least one zero. Then after we test all possible factors of P[l], we test 
to see if the switch is on. If it is, we read more data. If the switch is off, 
there were no zeros, so we print a message and then read more data. See 
the flowchart in Fig. 11-1. 

INTZER works well for polynomials of the same degree; but suppose we 
have polynomials of several different degrees we wish to study using the same 
program? Well, we could define a different function for each degree or we 
could define a function of the highest degree we anticipate and fill in with 
leading zeros. But suppose we want up to ninth or tenth degree? The function 
would not fit on one line on some terminals. We could define two functions 

INTZER 

10 DEF FNP<X> = PC43*Xt3+PC33*Xt2+PC23*X+PC 13 

20 PRINT 

22 PRINT 

25 F0R S=4 13 1 STEP -1 

30 READ PCS! 

40 PRINT PCS3J 

50 NEXT S 

60 PRINT "INTEGRAL ZER0CS>! "I 

68 REM TURN SWITCH 0FF 

70 LET K=0 

78 REM STUDY LINE 80 CAREFULLY ! 

80 F0R X = -PC13 T0 PCU STEP SGNtPClJ) 

88 REM LINE 90 PREVENTS AN ERR0R MESSAGE CAUSED BY 

89 REM DIVIDING BY ZER0 

90 IF X=0 THEN 140 

98 REM IS X A FACT0R 0F PC 1 3 ? 

100 IF PC13/X <> INTCPC13/X) THEN 140 

108 REM IS THE REMAINDER ZER0? 

110 IF FNPCX) <> THEN 140 

118 REM IF THE C0MPUTER GETS THR0UGH HERE. THE 

119 REM VALUE 0F X IS A ZER0 0F THE FUNCTI0N 

120 PRINT XJ 

128 REM TURN THE SWITCH 0N - WE HAVE A ZER0 

130 LET K=l 

140 NEXT X 

150 IF K=l THEN 20 

160 PRINT "N0NE F0UND"J 

165 G0T0 20 

170 DATA 1,-2,-11,12 

180 DATA 1, 1,-5,-2 

190 DATA 1.-2,3,-4 

200 DATA 2,-3.-10.3 

210 END 

RUN 

INTZER 

1 " 2 -II 12 INTEGRAL ZER0CS): -3 1 4 

1 1-5-2 INTEGRAL ZER0CS)! 2 
1-2 3-4 INTEGRAL ZER0CS)! N0NE F0UND 

2 "3 -10 3 INTEGRAL ZER0<S)z 3 

0UT 0F DATA IN LINE 30 
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Fig. 11-1. Flowchart for finding integral zeros of polynomial 



and add them. But then we have huge numbers of leading zeros to worry 
about. All of these complications may be eliminated by using a subroutine to 
define a function instead of a DEF statement. Notice that evaluating an 
Nth-degree polynomial is equivalent to summing up N + 1 terms which look 
like AjX' where i goes from N to 0. If you have subscripts, this is perfect. 
For those of us without subscripts, we must use a term similar to 
P[I] ° X " (I — 1), where the value of I goes from N to 1 for N equal to one 

more thnn the decree of the nolvnnrninl 

We may now define a polynomial function in a five-line subroutine for any 
degree with no further complications and no fuss over leading zeros and such: 

500 LET P = 

510 F0R I = N T0 1 STEP -1 
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520 LET P = P + P[I] °X°° (1-1) 
530 NEXT I 
540 RETURN 

Let us insert G0SUB 500 after line 100 in INTZER, insert line 23 READ N, 
where N is the number of terms in the polynomial, and change line 25 to 
read F0R S = N T0 1 STEP -1. See IZER01. 

This program will handle up to ninth-degree polynomials. (Tenth, if you 
have subscripts.) If we want to work with polynomials of greater degree, 
all we need is a DIM statement to specify a longer list for P. 



SUMMARY 

We have seen that by combining the Remainder theorem, the Factor 
theorem, and the fact that the product of all zeros multiplied by (— 1) N , where 
N is the degree of the polynomial, gives the constant term, we are able to 
find all integral zeros. We simply test all integral factors of the constant term 
to see if the remainder is 0. If the remainder is 0, then we have a zero of the 
polynomial. If it is not 0, then we do not have a zero of the polynomial. We 
have two alternative methods of evaluating a polynomial for a specified value 
of X: one is to use a DEF statement, and the other is to write a subroutine to 
sum up terms. 

PROBLEMS FOR SEC. 11-2 

1) For each of the polynomials to follow: (a) find an integral zero, (b) use syn- 
thetic division to find the resulting factor after dividing by (X — Z), and (c) search 
for zeros of the depressed polynomial. Repeat until all integral zeros are found and 
then print the remaining polynomial. 

10X3 _ 71X2 _ 76X + 32 

6X* - 32X7 _ 23X« _ 3xr. _ 12X< - 36X3 - X^ + 8X - 12 

8X r > - 18X* _ 8X3 _ 32X-* + 2X + 3 

2X4 + 5X3 _ 31X-' _ 21X + 45 

2) Generate random integers in sets of three. Have the computer print the poly- 
nomial having those three integers as zeros Be sure to get some negative integers. 

3) Do problem 2) for sets of four integers. 

4) In IZER01 have the computer determine if Fix) is within two units of for 
each factor of the constant term. 

5) Prepare a table of ordered pairs (X, P(x>) such as would be appropriate for 
plotting points. Sketch a graph on graph paper. How would you estimate non- 
integral zeros? 

11-3 REAL ZEROS 

It can be shown that for a polynomial, if P| X]I > and P,. N .,i < 0, then 
there is a value of X between X, and X., such that P lXl = 0. This is called the 
Location Principle. In graphical terms, the Location Principle may be stated as 
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IZER01 



20 

22 

23 

25 

30 

40 

50 

55 

60 

68 

70 

78 

80 

88 

89 

90 

98 

100 

105 

108 

110 

118 

119 

120 

128 

130 

140 

150 

160 

165 

170 

180 

190 

200 

210 

490 

491 

492 

500 

510 

520 

530 

540 

999 

RUN 

IZER01 



PRINT 

PRINT 

READ N 

FOR S=N T0 1 STEP -1 

READ PCS! 

PRINT PCS) J 

NEXT S 

PRINT 

PRINT "INTEGRAL ZER0<S>J "1 

REM TURN SWITCH 0FF 

LET K=0 

REM STUDY LINE 80 CAREFULLY! 

F0R X = -PC1J T0 PCI J STEP SGNfPCll) 

REM LINE 90 PREVENTS AN ERR0R MESSAGE CAUSED BY 

REM DIVIDING BY ZER0 

IF X=0 THEN 140 

REM IS X A FACT0R 0F PC 1 I? 

IF PCU/X <> INT<PCU/X> THEN 140 

G0SUB 500 

REM IS THE REMAINDER ZER0? 

IF P <> THEN 140 

IF THE COMPUTER GETS THR0UGH HERE. THE 
IS A ZER0 0F THE FUNCTI0N 



WE HAVE A ZER0 



REM 

REM VALUE 0F 

PRINT Kl 

REM TURN THE SWITCH 0N 

LET K=l 

NEXT X 

IF K=l THEN 20 

PRINT "N0NE F0UND-J 

G0T0 20 

DATA 4. 1.-2,-1 1. 12 

DATA 4. 1 . 1 . - 5. - 2 

DATA 4. 1.-2.3.-4 

DATA 5.2.-1.-11. 1 1.-2 

DATA 7.2.-5.-6.9.9.-39.36 

REM SUBROUTINE 500 THR0UGH 540 TAKES THE PLACE 0F A 

REM DEF STATEMENT AND EVALUATES A P0LYN0MIAL 0F 

REM 0F DEGREE N-l. 

LET P=0 

F0R I=N T0 1 STEP -1 

LET P=P+PCI3*X«U-1> 

NEXT I 

RETURN 

END 



1 -2 


-11 


12 




INTEGRAL 


ZER0<S>« 


-3 


1 


1 1 


-5 


-2 




INTEGRAL 


ZER0<S>: 


2 




1 -2 


3 


-4 




INTEGRAL 


ZER0(S)S 


N0NE 


F0UND 


2 -1 


-11 


11 


-2 


INTEGRAL 


ZER0(S): 


2 





2 -5 -6 

INTEGRAL ZER0CS)! 



-39 



36 



0UT 0F DATA IN LINE 23 
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follows: If point (X 1; P (Xl )) and point (X 2 , P ( x 2 )) are on opposite sides of the 
X-axis, then the graph must cross the X-axis between (X x> 0) and (X 2 , 0). 

We may now search for real zeros by finding intervals in which the graph 
crosses the X-axis. In order to find out if the value of the function is positive 
for one value of X and negative for another, we may simply test the product. 
If the product is negative, they are of opposite sign. If the product is positive, 
then they are of the same sign and we are not concerned with those values of 
X. Since we anticipate more than one zero, let us make a provision for putting 
the information in a list. For that, we need a counter. It seems reasonable to 
list the left number of the interval. As long as we know the increment, we 
should be able to see the right number of the interval. It is usual to start 
looking for real zeros in an increment of one unit. Let us prepare a flowchart 
for this problem and call the program REAL. See Fig. 11-2. 

Thus, we have found that the three zeros of 12X 3 - 64X 2 + 17X + 195 fall 
in the three intervals -2 to — 1, 2 to 3, and 3 to 4. That is fine to know, but 
we generally prefer more precision than that. So, we should try to improve on 



f Start \ 

"flap 1 * 



Define 
function 

FNT(X) 



^4,5, 






F0R X = -5 
T0 5 


h 


Set counter 

atO 
LET A = 


f 



NEXT X 



i: 



LET S1 = FNT(X) 
LETS2 = FNT(X + 1) 




LET A = A + 1 
LET S(A) = S1 



PRINT 
Slist 



c 



END 



Fig. 11-2 Flowchart for searching for 
real zeros in program REAL. 
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REAL 



50 


DEF FNTCX> = 12*Xt3-64*X»2+17*X+ 


60 


LET A=0 


70 


F0R X = -5 T0 5 


80 


LET S1=FNT(X> 


90 


LET S2=FNT<X+1) 


100 


IF S1*S2>0 THEN 130 


110 


LET A=A+1 


120 


LET SCAJ = X 


130 


NEXT X 


190 


PRINT "INTERVALCS) BEGIN AT!" 


200 


F0R 1=1 T0 A 


210 


PRINT SCII1 


220 


NEXT I 


270 


END 


RUN 




REAL 


INTERVALCS) BEGIN AT! 


-2 


2 3 


D0NE 



REAL to get smaller intervals. There are several very satisfactory procedures 
one might try. Let us develop a program that permits us to make decisions 
about what to try for the limits and the increment of the search. That calls 
for INPUT statements. We can change line 70 to 70 F0R X = F T0 L STEP 
S and INPUT F, L, S for First, Last, and Step. We may also use S = as a 
flag to terminate the RUN. After we get the computer to search for a change 
of sign in a particular interval, we want it to come back and permit us to 
either look for more precision in that same interval or to search in a different 
interval. We should also provide for the situation where there has been no 
change in sign. This will happen for one of several reasons. Either the search 
is not including the zeros within its limits, or the increment is large enough 
that two zeros are included in one interval, or there might be no real zeros. 
We will discuss this in Sec. 11-4. We can determine that no change of sign 
has been found by testing the value of A after line 130. If A is still 0, then 
there were no changes of sign and we should print a message to that effect. 
We make the above changes and call the program REAL1. 



REALl 

10 PRINT "SEARCH F0R REAL ZER0S 0F A P0LYN0MIAL 1 

20 PRINT "START, END, INCREMENT"* 

30 INPUT F*L. S 

40 IF S=0 THEN 2 70 

50 DEF FNTCX) = 12*Xt3-64*X»2+l 7*X+195 

60 LET A=0 

70 F0R X = F T0 L STEP S 

an LET S1~FNT^?0 

90 LET S2=FNTCX+S> 

100 IF S1*S2>0 THEN 130 

110 LET A=A+1 

120 LET SCA3 = X 

130 NEXT X 

140 IF A>0 THEN 190 

150 PRINT "N0 INTERVALS F0UND **** TRY AGAIN " 
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160 


PRINT "WITH EITHER GREATER L 


170 


PRINT 


180 


G0T0 20 


190 


PRINT "INTERVALCS) BEGIN AT! 


200 


F0R 1=1 T0 A 


210 


PRINT SCIJJ 


220 


NEXT I 


230 


PRINT 


240 


PRINT 


250 


PRINT "N0W "I 


260 


G0T0 20 


2 70 


END 


KUN 




REAL1 



SEARCH F0R REAL ZER0S 0F A P0LYN0MIAL 
START. END. INCREMENT?- 5. 5. 1 
INTERVALCS) BEGIN AT: 
-2 2 3 

N0W START. END. INCREMENT?- 3. -2. . 1 

N0 INTERVALS F0UND **** TRY AGAIN 

WITH EITHER GREATER LIMITS '0R SMALLER INCREMENT 

START. END. INCREMENT7-2. - 1. . 1 

INTERVALCS) BEGIN AT: 

-1.5 

N0W START. END. INCREMENT?- 1 . 5. - 1 . 4. . 01 

INTERVALCS) BEGIN AT: 

-1.45 

N0W START. END. INCREMENT72. 3. . 1 
INTERVALCS) BEGIN AT: 

2.8 

N0W START. END. INCREMENT? 1. 2. 

D0NE 

Since we are using INPUT often in this program, we should pick limits and 
increments carefully. We should also be prepared to make up our mind quickly. 
Some of the things we should not try are —50 to 50 STEP .01, or 50 to —50 
STEP 1. A little care should avoid such blunders. 

Let us define a new function and obtain another RUN. 



50 DEF FNTCX) = Xt3+49. 1809*X«2+2. 67761*X- 1 5223.8 

RUN 

REAL 2 

SEARCH F0R REAL ZER0S 0F A P0LYN0MIAL 

START. END. INCREMENT?- 10. 10. 1 

N0 INTERVALS F0UND **** TRY AGAIN 

WITH EITHER GREATER LIMITS 0R SMALLER INCREMENT 

START. END. INCREMENT?- 100. 1 00. 5 
INTERVALCS) BEGIN AT: 
-40 -30 15 

N0W START. END. INCREMENT?- 40. - 35. . 1 

INTERVALCS) BEGIN AT: 

-39.3 
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N0W START. END. INCREMENT7-39. 3. - 39. 2, . 01 

INTERVALCS) BEGIN AT! 

-39.22 

N0W START. END, INCREMENT? 1 5. 20. . 1 
INTERVALCS) BEGIN AT: 
15.3 

N0W START. END. INCREMENT? 1 5. 3. 1 5. 4. . 01 
INTERVAL(S) BEGIN AT! 
15.33 

NOW START, END, INCREMENT70, 0, 

D0NE 



One of the contingencies that we have not accounted for in REAL1 is the 
possibility that the polynomial has integral zeros. As the program stands, if SI 
or S2 equals 0, then the value of X used for SI will be identified as the 
number at the beginning of the interval in which a real zero will be found. 
It will be left as an exercise to identify a zero more explicitly if SI or S2 
does equal 0. 

SUMMARY 

We have used the Location Principle to find intervals within which real 
zeros are expected to occur. It should be noted that the Location Principle 
may be applied to any continuous function and is not limited to polynomial 
functions. 

PROBLEMS FOR SEC. 11-3 

1) Modify REAL1 so that if the value picked for X in line 70 gives either SI 
or S2 equal to 0, we get a message and the value of the zero printed. 

2) In program REAL1, after the computer has found the initial intervals for all 
real zeros, we do not want the computer to search the entire intervals specified in 
subsequent searches in the X-loop. We want the computer to print immediately 
after finding the change in sign without searching the rest of the interval. Incorporate 
this into the program. 

3) Modify REAL1 to read data for more than one polynomial. You may use 
some dummy value for S in line 30 as a signal to read the next set of data. 

J 4) Write a program to search for real zeros by first finding the unit intervals and 
then using linear interpolation until FNT(X) is within 10 -4 of zero. You may want 
to specify less or greater precision. 



11-4 COMPLEX ZEROS 

The simplest real polynomial for which we may find complex zeros is the 
second-degree polynomial A 2 X-+ A,X + A„. We may use the general quad- 
ratic formula 



x = - Ai ± v y - 4A - A " (n-3) 
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Letting the radicand equal D we get 

D = A^ -4A 2 A 

D is called the discriminant of the quadratic expression. We can see that if D 
is negative, the zeros are nonreal. We can rewrite Eq. (11-3) as 



X = 



-Ai + VD 



and finally, considering X as being associated with two numbers A and B, we let 

A = ^L and B = #T 

2A 2 2A 2 

If D is greater than or equal to 0, the real zeros are 

XI = A + B and X2 = A - B (11-4) 

But if D is less than 0, we get the nonreal zeros 

XI = (A, B) and X2 = (A, -B) (11-5) 

So, in our computer program we compute D, A, and B. Then we test D. If 
D is negative, we print as in Eq. (11-5) and if D is not negative, we print as 
in Eq.(ll-4). See Fig. 11-3 for the flowchart. We call the program C0MP-1. 
It turns out that there is no convenient general procedure for finding non- 
real zeros for polynomials of higher degree than two. But for any polynomial 
that has exactly two nonreal zeros, we may find the real zeros first, then for 
each real zero Z we may divide out the corresponding X — Z using synthetic 
division and if after all division is carried out the result is a second-degree 
polynomial, we may apply the technique of program C0MP-1. We demon- 
strate this procedure by an elementary example: Find all zeros of the following 
polynomials, given that each has at least one integral zero: 

X 3 + 2X 2 - X - 2 

X 3 - X 2 - 48 

X s -1 

X 3 + 1 

X 3 - X 2 + X - 1 

6X 3 - 77X 2 - 189X - 90 

This is of course a special case, but it should help us develop a more gen- 
eral approach. Since we have a third-degree polynomial with one integral 
zero, we may take program INTZER to find the integral zero Z and then use 
program SYNDIV to divide the given polynomial by X — Z. The polynomial 
we get is called a depressed polynomial. We know that in this problem each 
depressed polynomial will be a second-degree polynomial. So we may then 
use program C0MP-1. In each of these earlier programs the polynomials were 
all represented with the same variable P list. So all that will have to be 
changed is the various READ statements and the variable in which the integral 
zero in INTZER is called X, while in SYNDIV the corresponding number was 
stored in R. Thus the need for line 170 in program ALLZER. We also changed 
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f Start J 



' READ and 

PRINT 
coefficients 





Fig. 11-3. Flowchart for finding real 

and nonreal zeros of second-degree 

polynomials 



LETD = P[2]«*2 
-4*P[3]*P[1] 



LETF = 2*P[3] 



PRINT 

nonreal 

'(A,B), (A-B) 



LETA = -P[2]/F 



_3BE_ 



LET B = SQR 

(ABS(D))/F 




C0MP- 



10 PRINT 

20 READ PC3J.PC23.PC 1] 

30 IF PC 33 = THEN 170 

A0 PRINT PC 33» PC 23 J PC 13 

50 LEI D=PC23t2-4*PC3]*PC 13 

60 LET F=2*PC33 

70 LET A=-PC23/F 

80 LET B=SQR<ABSCD)>/F 

90 IF D<0 THEN 130 

100 PRINT "REAL ZER0SJ" 

110 PRINT A+BJ "AND "1A-B 

120 G0T0 10 

130 PRINT "N0N-REAL ZER0S:" 

140 PRINT "("I A»"»"J BJ"> AND < "J A) ", "J -BJ " > " 

ISO G0T0 10 

160 DATA 1.2.3.1.-3,2.1.3.2.1,3.13.-1.2.-3.1.3.12,0.0.0 

1 70 END 
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KUN 
C0MP-1 



1 2 3 

N0N-REAL ZEROS: 
C-l , 1.41421 ) AND (-1 .-1.41421 ) 

1 -3 2 
REAL ZEROS: 

2 AND 1 

1 3 2 

REAL ZEROS: 
-1 AND -2 

1 3 13 

N0N-REAL ZER0S: 
<-l.5 , 3.27872 ) AND C-l. 5 .-3.27872 ) 

-1 2 -3 

N0N-REAL ZER0S: 

C 1 .-1.41421 ) AND f 1 . 1.41421 ) 

1 3 12 

N0N-REAL ZEROS: 
(-1-5 , 3.1225 ) AND (-1.5 .-3.1225 ) 

D0NE 



ALLZER 

8 REM INTZER BEGINS HERE C WE HAVE REMOVED THE REM STATEMENTS) 

9 REM SEE THE PR0GRAM F0R REM STATEMENTS 

10 DEF FNPCX) = PC4J*Xt3+PC33*Xt2+PC2]*X+P[ 1] 
20 PRINT 

30 PRINT 

40 F0R S=4 T0 1 STEP -1 

50 READ PCS] 

60 IF PCS1 = .0101 THEN 430 

70 PRINT PCSU 

80 NEXT S 

90 PRINT "INTEGRAL ZER0: "J 

100 F0R X = -PC1] T0 PC |] STEP SGNCPC1]) 

110 IF X=0 THEN 160 

120 IF PCU/X <» INTCPCU/X) THEN 160 

130 IF FNP(X) <> THEN 160 

140 PRINT X 

150 G0T0 170 

160 NEXT X 



164 REM INTZER ENDS HERE *** SYNDIV BEGINS HERE 

170 LET R=X 

180 PRINT "SYNTHETIC DIVISI0N BY X -"! R, "YI ELDS: ' 

190 PRINT PC4U 

200 F0R X=3 T0 1 STEP -1 

210 LET PCX] = PCX] + PCX+U*R 

220 IF X>] THEN 240 

230 PRINT "REMAINDER ="» 

240 PRINT PCX3J 

250 NEXT X 

252 REM SYNDIV ENDS HERE 

258 REM HERE WE M0VE EACH ENTRY IN THE P LIST 

259 REM T0 THE L0CATI0N 0N£ SUBSCRIPT LOWER 
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260 F0R X=l T0 3 

270 LET PCX) = P£X*13 

280 NEXT X 

290 PRINT 

298 REM C0MP-I BEGINS HERE 

300 LEI D=PC2]»2-4*P13J*P[1J 

310 LET F=2*PC31 

320 LET A=-PC23/F 

330 LET B=SQR(ABS<D)>/F 

340 IF D<0 THEN 380 

350 PRINT "REAL ZEROS:" 

360 PRINT A+Bl"AND "1A-B 

370 G0T0 20 

380 PRINT "N0N-REAL ZEROS:" 

390 PRINT "<"l AJ". "IBJ") AND ("J Al "> "1 -Bl '•) • 

400 G0T0 20 

405 DATA 1.2.-1.-2 

410 DATA l»- 1.0.-48. 1. 0.0.- 1. 1.0.0. 1. I,- 1. 1. 

415 DATA 6. -77. -189* -90 

420 DATA .0101 

430 END 

RUN 
ALLZER 



1 2-1-2 INTEGRAL ZER0: 

SYNTHETIC DIVISION BY X - 1 YIELDS: 

1 3 2 REMAINDER = 

REAL ZER0S! 
-1 AND -2 



1 -1 -48 INTEGRAL ZERO: 4 

SYNTHETIC DIVISION BY X - 4 YIELDS: 

1 3 12 REMAINDER = 

N0N-REAL ZEROS: 
C-1.5 . 3.1225 ) AND C-1.5 .-3.1225 



1 0-1 INTEGRAL ZERO: 1 

SYNTHETIC DIVISION BY X - 1 YIELDS: 

1 1 1 REMAINDER = 

N0N-REAL ZEROS: 
(-.5 . .866025 ) AND <-.5 .-.866025 



10 1 INTEGRAL Z£R0: -1 

SYNTHETIC DIVISION BY X --1 YIELDS: 

1 -1 1 REMAINDER = 

N0N-REAL ZEROS: 
( .5 . .866025 ) AND ( .5 .-.866025 



1-1 1-1 INTEGRAL ZER0: 

SYNTHETIC DIVISION BY X - 1 YIELDS: 

1 1 REMAINDER = 

NON-REAL ZEROS: 
(0 .1 ) AND CO .-1 ) 



6 -77 -189 -90 INTEGRAL ZERO: 15 

SYNTHETIC DIVISION BY X - 15 YIELDS: 

6 13 6 REMAINDER = 

REAL ZEROS: 
-.666667 AND -1.5 

DONE 
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the way in which the quotient was stored in SYNDIV. It turns out that the 
quotient polynomial can be stored right back in the P list instead of creating 
the new Q list. This is done in line 210 of ALLZER. Then in order to avoid 
changing the subscripts in C0MP-1 it seems reasonable to simply take the 
quotient polynomial, which also stores the remainder in the lowest subscripted 
location, and move every entry into the location one subscript lower. Instead 
of having the quotient polynomial in P[4], P[3], and P[2], we are putting the 
quotient polynomial in P[3], P[2], and P[l], which exactly fits program 
C0MP-1. This is done in lines 260, 270, and 280. 

As always, some interesting problems have been left for you to solve. For 
instance, suppose we have third-degree polynomials with two nonreal zeros 
and a real zero that is not an integer, or what about higher degree poly- 
nomials? These considerations are left as exercises in the problems set for 
Sec. 11-4. 

Descartes' Rule of Signs 

We may define the variation in a sequence of numbers as the number of 
changes in sign found by comparing successive pairs of adjacent numbers. 
For example, for the sequence 1, 3, 4, -8, 2, the value of V is 2. There is no 
change for 1 to 3 or 3 to 4. There is one change for 4 to -8 and for -8 to 2. 
If zeros appear in the sequence, we drop them. The sequence —2, 8, 0, 5, —3, 
6 becomes —2, 8, 5, —3, 6 in order to determine the number of variations 
which is 3. 

Descartes' Rule of Signs says that for 

A N X* + A N _ 1 X N - 1 + ■ • • + A t X + A 

the number of positive zeros depends on the number of variations in the 
sequence 

A N , A N _ 1; . . . , A x , A 

in the following manner. If V is the number of variations, then the number 
of positive zeros is either V or V — 2 or V — 4, etc., but not less than 0. This 
may be written V — 21, where I is a positive integer. 

It turns out that we may find a corresponding number for negative zeros 
by finding positive zeros for P ( _ X) . Substituting -X for X will change the 
sign of all terms which have an odd exponent on X. So if P (X) = — 4X 5 
— 3X 4 + 5X 3 — 2X 2 + X — 3, the value of V is 4 and there must be 4 or 2 or 
positive zeros. Now we find P ( _ X) = +4X 5 — 3X 4 — 5X a — 2X 2 — X — 3, 
and V is 1. So there must be exactly one negative zero. 

This is something we can get the computer to do for us. We may read the 
coefficients into the first row of a P array and change the sign of the coefficients 
of the terms with odd exponents on X and put the new coefficient list in the 
second row of the P array. Then we may look for changes in sign and provide 
two counters: one for the first row keeping track of changes of sign for the 
positive zeros, and the other for the second row counting sign changes for the 
negative zeros. These are VI for the positive zeros and V2 for the negative 
zeros in program DESCRT. 
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DESCRT 



10 
15 

20 

30 

40 

48 

49 

50 

58 

60 

70 

80 

90 

100 

200 

210 

218 

220 

230 

238 

240 

250 

260 

300 

310 

320 

340 

500 

510 

520 

600 

999 

RUN 

DESCRT 



READ N 

IF N=0 THEN 999 

F0R X=N T0 1 STEP - 1 

READ PC l.X] 

PRINT PC 1.X3J 

REM ENTER THE SAME COEFFICIENT IN THE SAME C0LUMN 

REM 0F THE SEC0ND R0W 

LET PC2.X] = PC 1.X1 

REM IF THE EXPONENT 0N X I S 0DD THEN CHANGE THE SIGN 

IF <X+l>/2=INTC<X«-l>/2> THEN 80 

LET PC2»X3 = -PC2»X3 

NEXT X 

PRINT 

PRINT N-l J "COMPLEX ZEROS" 

LET V1 = V2=0 

F0R X=N-1 T0 1 STEP -1 

REM L00K AT POSITIVE ZEROS 

IF PC l.X]*PC l.X+ll>0 THEN 240 

LET V1 = V1+1 

REM LOOK AT NEGATIVE ZEROS 

IF PC2,XJ*PC2,X*1]>0 THEN 260 

LET V2=V2+1 

NEXT X 

PRINT VlJ"MAX POSITIVE" 

PRINT V2J"MAX NEGATIVE" 

PRINT 

G0 T0 10 

DATA 4,6* 103.201.90 

DATA 5. 1.3.4.-8.2 

DATA 6.-4.-3.5.-2.1.-3 

DATA 

END 



6 103 201 90 

3 COMPLEX ZEROS 

MAX POSITIVE 

3 MAX NEGATIVE 



3 4-8 

COMPLEX ZEROS 
MAX POSITIVE 
MAX NEGATIVE 



-4 -3 5 -2 

5 COMPLEX ZEROS 

4 MAX POSITIVE 

1 MAX NEGATIVE 



-3 



DONE 



You might reasonably ask, just what have we done that could not be done 
quicker by hand. Well, maybe not much, but look at 6 103 201 90 

in DESCRT. If we run these coefficients through INTZER, the computer tests 
P[I]/X 180 times (from -90 to 90 skipping 0). We may now use DESCRT 
and change the limits on the test loop in INTZER to test no positive values 
of X. So the computer will now test a maximum of 90 values of X. We could 
take this one step further and use the fact that the maximum number of 
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negative zeros is three to transfer out of the loop after the third value is found 
if they all are integral. 

There is more to Descartes' Rule of Signs than appears in program DESCRT. 
The rule states that zero coefficients are to be dropped. DESCRT does not 
provide for that. You will find that when zero coefficients appear, we may 
consider polynomials such as 



(X) 



5X 2 -7 



VI for positive zeros gives us 1. The coefficients for P,_ X ) are 3, —2, —5, —7, 
and V2 is 1. Since there are no zeros, there are a total of two real zeros. 
Since there are 4 complex zeros, we find that there are two nonreal zeros 
forP (X) . 

SUMMARY 

Once again we have used polynomial coefficients stored in a computer list. 
This time we find all zeros whenever no more than two zeros are nonintegral. 
In addition, we have used Descartes' Rule of Signs to obtain the possible 
numbers of positive and negative zeros and outlined a procedure for deter- 
mining the possible numbers of nonreal zeros. 

PROBLEMS FOR SEC. 11-4 

1) Modify DESCRT to permit zero coefficients. Read all coefficients into a P list 
and then eliminate the zero coefficients as you enter them into a two-row array. 

2) Modify ALLZER to handle polynomials of degree greater than three which 
have for degree D at least D — 2 integral zeros. 

7 3) Write a program to generate polynomials of random degree D which are 
guaranteed to have exactly D — 2 integral zeros and two nonreal zeros. 

4) Project: Modify your program in problem 2) to handle D — 2 real zeros using 
linear interpolation until P<xj is within .001 of 0. (You may want to change the 
tolerance.) 

5) Project: Use DESCRT to modify ALLZER to reduce the number of tests for 
polynomials similar to 6X : ' + 103X^ + 201X + 90. 



CHAPTER 12 



12-1 INTRODUCTION TO MAT INSTRUCTIONS 

MAT instructions are BASIC statements which allow us to manipulate 
entire arrays in the computer without being required to do it entry by entry. 
This capability will enable us to write shorter programs, using arrays, than we 
have been able to write thus far. 

We have had to assign values of array entries one at a time. We have been 
putting LET A[I, J] = or READ A[I, J] in a nested loop for assignment and 
then in order to print the array, we have been putting PRINT A[I, J]; in 
another nested loop. In order to print out a 3 by 4 array consisting of — l's, we 



MAT- 1 



8 REM LINES 10 T0 


50 -ASSIGN VALUES 


10 


F0R R=l 


T0 3 




20 


F0R C=l 


T0 4 




30 


LET ACRj 


■Cl=-I 




40 


NEXT C 






50 


NEXT R 






98 


REM LINES 100 T0 


160 PRINT THE ARRAY 


100 


F0R R=l 


1 T0 3 




110 


F0R C=l 


1 T0 4 




120 


PRINT ACR.C3I 




130 


NEXT C 






140 


PRINT 






150 


PRINT 






160 


NEXT R 






200 


END 






RUN 








MAT- 


■1 






-1 


-1 


-1 - I 




-1 


-1 


-1 -1 




-1 


-1 


-1 -1 





D0NE 
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MAT-2 



•i»-i.-i.-i»-i,-i 



10 


DIM 


AC 3. 41 


20 


MAT 


READ A 


30 


MAT 


PRINT AJ 


40 


DATA 


-1.-1.-1,-1, 


50 


ENO 




RUN 






MAT- 


■2 




-. 


-1 


-1 -1 


-1 


-1 


-1 -1 


-1 


-1 


-1 -1 



DONE 

would proceed as in MAT-1, using programming statements and techniques 
with which we are familiar. MAT-1 certainly does what we said we would do. 
But consider MAT-2, which is a five-line program that does what required 13 
lines to do in MAT-1. In MAT-2, line 10 instructs the computer to set up a 
3 by 4 array. Then line 20 reads the data into the array named and dimen- 
sioned in line 10. (Some of you who had subscripts will find that as soon 
as you specify a MAT instruction for a particular variable you also lose 
subscripts for that variable. Others will find the situation unchanged. This 
depends on the system.) Note in line 20 a semicolon appears after the array A. 
Used in this way we are specifying semicolon spacing. To get comma spacing, 
we may place a comma there or leave it blank. If we wish to specify printing 
for several arrays in one print instruction, we may do so as follows: 

XXX MAT PRINT A, B; C 

In this case A and C will be printed with comma spacing, and B will be 
printed with semicolon spacing. 

In MAT-2 it may not be clear just how the computer takes the numbers in 
the data line and enters them in the array locations. MAT-3 is intended to 
show what numbers are entered where in the array. 



MAT-3 

10 DIM AC 3. 53 

20 MAT READ A 

30 MAT PRINT AJ 

40 DATA 1,2. 3. A, 5. 6. 7.8.9. 10. 1 1. 12, 13, 14, 15 

50 END 



RUN 










MAT-3 










1 


2 


3 


4 


5 


6 


7 


S 


9 


10 


1 1 


12 


13 


14 


15 



D0NE 
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It should be clear now that MAT READ enters numbers just as we read 
across the printed page. It reads and enters across until it runs out of space 
in the row and then reads the next data item into the first location of the next 
row. This is the method we have been using in all array programs throughout 
this text. 

It was stated earlier that a list is just a special array consisting of a single 
column or a single row, depending on the computer. Now we will look at 
arrays of just one column or just one row. See MAT-4 and MAT-5. 



MAT- 4 



10 


DIM AC 5, 11 


20 


MAT READ A 


30 


MAT PRINT A 


40 


DATA 1,2, 3, A, 5 


50 


END 


RUN 




MAT' 


-A 


1 




2 




3 




4 




5 





MAT-5 



10 


DIM AC 1, 5] 


20 


MAT READ A 


30 


MAT PRINT Al 


40 


DATA 1,2.3*4,5 


50 


END 


RUM 




MAT- 


-5 



D0NE 



D0NE 



Some systems may permit you to dimension a list as DIM A[5] and then 
MAT READ A. If this works, then you can determine whether your system 
thinks of a list as a row vector or a column vector, by having it MAT PRINT 
A when A is a list. 

The MAT READ statement has an optional redimensioning capability. 
MAT READ A[R, C] redimensions A to have rows numbered up to R and 
columns numbered up to C and then reads data into that redimensioned array. 
See MAT-6. 



MAT- 6 



10 DIM AC8.81 




20 MAI READ AC 2, 51 




30 MAT PRINT A» 




40 DATA 6,3,4,8,-1.0,17.31,899, 


10 


50 END 




RUN 




MAT-6 




6 3 4 8-1 




17 31 899 10 





O0NE 
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Some systems permit the use of MAT READ A[R, C] to perform the initial 
dimensioning within certain limits (usually up to [10, 10]). 

An array of just one column is called a column vector by mathematicians. 
An array of one row is called a row vector. Mathematicians use the term matrix 
to describe all arrays. Thus the term MAT is used in BASIC. 



MAT READ X 

Reads data into the array named X according to previously deter- 
mined dimensions. 

MAT READ Y[R, C] 

Dimensions or redimensions an array named Y with R rows and C 
columns and reads data into the array Y. R and C may be explicit 
integers or variables. 

MAT PRINT P; Q, R; 

Prints array P with semicolon spacing, then prints array Q with 
comma spacing, and then prints array R with semicolon spacing. 



Even though you use MAT READ in a program, you are not required to 
use MAT PRINT. You may often want to use nested loops to print an array 
as we have been doing up to this section. You will do this if you do not want 
the blank line between printed rows and if you want to print headings in front 
of each row or if you only want to print a portion of the array. Note too, 
that you may use MAT PRINT even if you have not used MAT READ. This 
will be the case if'we analyze data and enter results into an array as we did 
in Chap. 5. 



PROBLEMS FOR SEC. 12-1 

1) Fill an array with the numbers 1, 2, 3, 4, 5, 6, 7, 23, 51, 47, 56, and 234 and 
fill another array of the same dimensions with the numbers 2, —3, 43, 90, 45, 32, 
—89, 65, 43, —96, 0, and 1. Fill a third array of the same dimensions with the sums 
of the numbers in order. The sum array should contain the numbers 3, — 1, 46, 94, 
etc. 

2) Use the data of problem 1). Dimension a 3 by 12 array. MAT READ the 
above data into the first two rows and 0's into the third row and then replace the 
0's with the sums of the entries in the first two rows column by column. 

3) Fill an array with the multiplication table up to 12 X 12. MAT PRINT the 
result. 

4) Fill a 4 by 3 array with the following numbers: 2, 56, 78, 3, 20, 45, 3, 9, 673, 
564, 90, and 234. Have the computer multiply each number in the array by 3 and 
enter the product to replace the old number. Print the result. 
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5) Use the data of problem 4), but this time multiply each entry by the product 
of the row and column number. MAT PRINT the result. 

6) Fill a 2 by 5 array with the following numbers: 3, 67, 32, 45, 90, 2, 9, 57, —3, 
and 1. Multiply each entry by —3 if the sum of the row and column numbers is odd 
and by --1 if the sum of the row and column numbers is even. Print the result. 

7) Fill a square array so that the locations along the top left to bottom right 
diagonal are filled with l's and all other entries are 0's. MAT PRINT the array. 

8) Fill an array with all l's and print it. 

9) Have the computer read the following array: 

1 6 11 

2 7 12 

3 8 13 

4 9 14 

5 10 15 

and have it create the new array: 

12 3 4 5 

6 7 8 9 10 

11 12 13 14 15 

10) Fill a 2 by 8 array with all 0's and print it. 

11) A company has salesmen on the road four clays a week. At die end of each 
week each salesman turns in an expense sheet. Here is a sample expense sheet: 

Mon.. Tue. Wed Thur. 



Lodging 


$12.00 


$11.00 


$10.50 


$14 00 


Meals 


$ 4 00 


$ 7.50 


$ 6.90 


$ 7.40 


Transportation 


$ 2 00 








$ 3.50 


Customer 

entertainment 





$18.00 


$ 4.50 


$ 4.50 


Miscellaneous 


$ 2.31 


$ 1.84 


$ 3.15 


$ 1.83 



Write a program that will find total expenses for the week, total expenses for each 
day of the week, and total expenses in each of the five categories listed on the 
expense sheet. 

12-2 SOLVING A PROBLEM 

To get from a certain town to another town one must travel over a toll 
road, through a toll tunnel, and over a toll bridge. At the beginning of the 
trip there is a sign posted, listing the rates as in Table 12-1. 
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TABLE 12-1. 







Tolls per Vehicle 




Road 


Tunnel 


Bridge 


Trucks 


$6.00 


$3.00 


$2.00 


Buses 


$5.00 


$3.00 


$2.00 


Passenger Cars 


$4.00 


$3.00 


$2.00 


Motorcycles 


$3.00 


$2.00 


$1.00 



On a particular day there were five caravans which traveled this route. The 
caravans consisted of different types of vehicles as shown in Table 12-2. 

TABLE 12-2. 







Vehicles 


per 


Caravan 




Trucks 


Buses 




Cars 


Cycles 


Caravan 1 


1 


3 




4 


2 


Caravan 2 


1 


5 




3 


6 


Caravan 3 


2 


4 




2 


5 


Caravan 4 


1 


6 




3 


2 


Caravan 5 


3 


1 







2 



The Road Commission would like to have a report which would include the 
amount each caravan paid in tolls at each toll booth. The problem will be 
solved, when we are able to fill in Table 12-3. 



TABLE 12-3. 







To//s Paid 




Road 


Tunnel 


Bridge 


Caravan 1 


A 


B 


C 


Caravan 2 


D 


E 


F 


Caravan 3 


C 


H 


I 


Caravan 4 


J 


K 


L 


Caravan 5 


M 


N 






Before we actually attempt the problem solution, let us write just the por- 
tion of our program that we will use later, which will read the data into two 
arrays. One array, which we call A, stores the values of Table 12-1, the other 
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array, which we call B, stores the values of Table 12-2. Then let us print the 
two arrays with headings so that we may later concentrate on the actual 
problem solution, having taken care of the mechanics of getting the data into 
the proper arrays. Taken by itself, the task of getting the data into the two 
arrays is reasonably straightforward. See program T0LL-1. 

T0LL- 1 

20 DIM AC 4, 3J,BC5, 41 

40 MAT READ A 

60 ' DATA 6, 3, 2, 5, 3, 2, 4» 3, 2, 3, 2, 1 

80 PRINT "TOLLS PER VEHICLE" 

100 PRINT "R0AD TUNL BRIDGE" 

120 MAT PRINT AI 

140 MAT READ B 

160 DATA 1.3. 4.2. 1» 5» 3» 6.2. 4,2. 5, I. 6,3, 2, 3, !»0j2 

180 PRINT "VEHICLES PER CARAVAN" 

200 PRINT "TRUCK BUS CARS M0T0RCYCLES" 

220 MAT PRINT BJ 

240 END 

RUN 

T0LL-1 

T0LLS PER VEHICLE 
R0AD TUNL BRIDGE 
6 3 2 

5 3 2 

4 3 2 

3 2 1 

VEHICLES PER CARAVAN 
TRUCK BUS CARS M0T0RCYCLES 
13 4 2 

15 3 6 

2 4 2 5 

16 3 2 

3 10 2 



D0NE 

Writing the program in parts like this will help us isolate any errors that 
we might encounter while writing the program. We may now strike out lines 
80, 100, 120, 180, 200, and 220 as we will not need these values printed again. 

Now to tackle the problem itself. We can find out how much Caravan 1 
paid at the road toll booth. It had one truck which paid $6, three buses at $5 
each for •'"IS four cars nt $4 each fo r $lf>, n,lr l two motorcycles at $3 each 
for $6. Totaling 1 . * 6, 3 ° 5, 4 ° 4, and 2 ° 3 we get $43. So, $43 is the value 
of A in Table 12-3. How much did Caravan 1 pay at the tunnel? It paid 
1 * 3 for the truck, 3 * 3 for the buses, 4 ° 3 for the cars, and 2 ° 2 for the 
motorcycles for a total of $28, which is the value of B in Table 12-3. We 
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repeat this process at the bridge substituting 2, 2, 2, and 1 for 3, 3, 3, and 2 
and sum up 1 ° 2, 3 ° 2, 4 ° 2, and 2 ° 1 getting a total of $18 for the value 
of C in Table 12-3. Then we would go to Caravan 2 and step through the 
road tolls, then the tunnel tolls, and finally the bridge tolls. Then on to the 
next caravan until we have gotten results for all the five caravans. This is 
just the kind of repetitive process that we use the computer for. 

We will find it helpful to think of Table 12-3 as an array with C[I, J] as 
the values of the entries rather than A, B, . . . , M, N, 0. Calling that array C 
we get C[l, 1] = A, C[l, 2] = B, etc. down to C[5, 3] = 0. 

Note that after we step across row 1 in MAT B and down column 1 in MAT 
A, the final sum is entered in row 1 and column 1 of MAT C. When we step 
across row 1 of MAT B and down column 2 of MAT A, the sum is entered in 
row 1 column 2 of MAT C. You should see that stepping across row R of MAT 
B and down column C of MAT A results in a sum that is entered in row R, 
column C of MAT C. Note too, that the row headings of MAT B correspond 
to the row headings of MAT C and the column headings of MAT A cone- 
spond to the column headings of MAT C, and that the row headings of MAT A 
and the column headings of MAT B coincide. With some experimentation, you 
should be able to convince yourself that this is a natural consequence of the 
problem and not mere coincidence for this particular set of data. If you 
change the number of toll booths, all of the above statements still hold. 

Summarizing, we have just tried to establish that we sum up the following 
products: 

B[R, X] ° A[X, C] (12-1) 

where R is the row number in MAT B, C is the column number in MAT A, 
and X goes from 1 to the number of columns in MAT B which is the same as 
the number of rows in MAT A. Having found the sum of all products in Eq. 
(12-1) for a fixed [R, C] pair, we enter that sum in C[R, C]. We do this for all 
rows of MAT B and all columns of MAT A. 

You should run through the calculations by hand with pencil and paper to 
verify the procedure and to become more familiar with it. We draw a flowchart 
in Fig. 12-1 and call the program T0LL-2. 



PROBLEMS FOR SEC. 12-2 

1) Suppose on a particular day there were four caravans. Caravan 1 had one 
truck, Caravan 2 had one bus, Caravan 3 had one car, and Caravan 4 had one 
motorcycle. Have the computer print the amounts that each caravan paid at each 
toll booth. 

2) Suppose there were no vehicles on a particular day. What would the Road 
Commission report look like? 

3) Suppose there were three caravans, each having one vehicle of each type. 
Print the schedule of payments for this situation. 

4) On a given day there were four caravans. Caravan 1 had one motorcycle, 
Caravan 2 had one car, Caravan 3 had one bus, and Caravan 4 had one truck. Have 
the computer print the schedule of payments. 
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( Start J 



'MAT READ A/ 
' MAT READ B , 



n^p^ 



Step through 
rows of MAT B 
F0R R = 1 T0 5 



-J 



Step through 

columns of 

MAT A 

F0R C = 1 T0 3 






LETC[R,C] = 



*^y* 



Step columns in 
B and rows in A 
F0R X = 1 T0 4 



LETQR, C] = 

C[R,C]+BLK,XJ 

• A[X, C] 




Fig. 12-1. Flowchart for finding tolls paid 

by caravans at various toll booths for program 

T0LL-2. 



T0LL-2 

20 DIM AC4, 3J»BC5»43 

25 DIM CC5, 33 

40 MAT READ A 

60 DATA 6. 3* 2» 5, 3, 2» 4, 3, 2, 3» 2, 1 

140 MAT READ B 

160 DATA 1,3, 4,2, 1,5. 3,6,2, 4.2* 5, I<6i3<2>3> l>0.2 

235 REM WE STEP THR0UGH ROWS 0F B THE CARAVANS 

240 FOR R=l T0 5 

255 REM WE STEP THROUGH COLUMNS OF MAT A 

256 REM THE TOLL BOOTH IDENTIFICATION 
260 FOR C=l T0 3 



280 LET CCR»C3 = 

295 REM X STEPS THROUGH THE ROWS OF A AND THE COLUMNS OF B 

296 REM THERE WE FIND 'TRUCKS BUSES CARS MOTORCYCLES' 
29 7 REM IN EACH ARRAY 

300 FOR X=l TO 4 

320 LET CCR»C3 = CCR.C3*BCR,X3*ACX»C3 

335 REM GO T0 THE NEXT COLUMN OF B AND THE NEXT ROW 0F A 

340 NEXT X 
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355 REM G0 T0 THE NEXT C0LUMN 0F MAT A 

360 NEXT C 

375 REM G0 T0 THE NEXT R0W 0F MAT B 

380 NEXT R 

500 PRINT "R0AD". "TUNNEL". "BRIDGE" 

520 MAT PRINT C 

999 END 



T0LL-2 






R0AD 


TUNNEL 


BRIDGE 


43 


28 


18 


61 


39 


24 


55 


34 


21 


54 


34 


22 


29 


16 


10 



D0NE 



5) Let 



1 


2 


3 


4 


5 


6 


7 


8 


9 


10 


11 


12 



and 



B = 



Perform the operations of this section to get MAT C 
6) Suppose we let 

2 3 4 



A = 



and 



B: 



10 

14 



11 

15 



12 
16 



13 

17 



Why could not we perform the set of operations of program T0LL-2? 

12-3 OPERATIONS AND SPECIAL MATRICES 

While the MAT operations have specialized and rigid definitions in matrix 
algebra, we will find at times that some of the MAT capabilities will help us 
in writing programs not deeply involved in a matrix algebra setting. It is the 
purpose of this section to list the MAT capabilities, but not to develop the 
matrix algebra to any great extent. For such a treatment, you should see any 
text in advanced algebra. 



Multiplication 

The requirements of the Road Commission report in Sec. 12-2 led us to 
evolve a set of steps that occurs often in both applied and theoretical mathe- 
matics. The set of steps carried out there exactly fits the definition of matrix 
multiplication. Using the array names of Sec. 12-2, we define the product of 
B and A as the array C, which is written as C = B ° A. 
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From the discussion in Sec. 12-2, we should see that the dimensioning must 
conform as 

B[R, M] ° A[M, C] = C[R, C] 

Calling for a product of two nonconforming matrices will generate an error 
message from the computer. The program statement for multiplication is 

XXX MAT C = B ° A 

We may now have the computer do everything from lines 240 through 380 
with a single statement. Having worked through the operation in considerable 
detail in Sec. 12-2, you should have little difficulty in having the dimensions 
correctly provided for. See T0LL-3. 

T0LL-3 

20 DIM AC 4, 33, B[ 5, 4] 

25 DIM CCS, 31 

40 MAT READ A 

60 DATA 6, 3.2,5, 3, 2, 4, 3. 2» 3,2. I 

140 MAT READ B 

160 DATA 1,3, A, 2, 1,5.3, 6, 2, A, 2, 5, 1, 6, 3. 2, 3, 1,0.2 

200 MAT C=B*A 

210 PRINT "R0AD", "TUNNEL", "BRIDGE" 



230 


MAT 


PRINT C 




999 


END 






RUN 








TOLL- 


•3 






ROAD 




TUNNEL 


BRIDGE 


43 




28 


18 


61 




39 


24 


55 




34 


21 


54 




34 


22 


29 




16 


10 


D0NE 









Addition and Subtraction 

Some past problems have asked you to add two arrays. For two arrays of 
the same dimensions, the sum is defined as an array containing the sums of 
corresponding entries of the given arrays. In other words, for all I, J pairs, 
S[I, J] = A[I, J] + B[I, J], where the sum array is S. Matrix addition is accom- 
plished with the program statement 

XXX MAT S = A + B 
or XXX MAT A = A + B 

may be used if you no longer need MAT A. 

Subtraction is defined just as you would expect. For A — B, the difference 
must be an array so that for all I, J pairs, D[l, J] = A[I, J] - B[I, J] The pro- 
gram statement is 
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XXX MAT D = A - B 

or XXX MAT A = A - B 

Neither addition nor subtraction is defined for arrays of different dimensions. 



Scalar Multiplication 

You may multiply each element of an array by some constant or algebraic 
expression using 

XXX MAT Z = (SIN(G)) ° X 

which multiplies every entry in MAT X by SIN(G) and enters the product in 
MAT Z. 



Equality 

A matrix may be created to be identical to an already existing matrix by 

XXX MAT P = Q (12-2) 

or, in systems which do not permit Eq. (12-2), you should be able to achieve 
the same result by 

XXX MAT P = (1)'Q 

Special MAT's 

There are three special matrices available with a single assignment state- 
ment in BASIC. They are 

XXX MAT A = ZER (12-3 A) 

XXX MAT B = ZER[R, C] (12-3B) 

YYY MAT C = C0N (12-4 A) 

YYY MAT D = C0N[R, C] (12-4B) 

ZZZ MAT E = IDN (12-5A) 

ZZZ MAT F = IDN[N, N] (12-5B) 

Equation (12-3A) sets all entries in MAT A equal to according to previ- 
ously determined dimensions, while Eq. (12-3B) sets the dimensions of B at 
[R, C] and fills MAT B with O's. Equation (12-3B) is often used to change the 
dimensions of a matrix during the RUN of a program. 

Equation (12-4A) sets all entries in MAT C equal to 1 according to pre- 
viously determined dimensions, while Eq. (12-4B) sets the dimensions of MAT 
D at [R, C] and fills it with l's. 

Equation (12-5A) requires that MAT E be a square array, and fills the 
upper left to lower right diagonal with l's and all other locations with O's. 
Equation (12-5B) has the same effect as Eq. (12-5A), but the dimensions are 
set at [N, N]. The matrix created in this form is called an identity matrix. 
Program MATSP1 is intended to show how these special arrays are established. 
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MATSPI 

10 DIMAC2.tJ.BC2.121.CC10.il] 

20 PRINT "MAT A=ZER ** PREVIOUSLY DIMENSIONED AT 2BY4" 

30 MAT A=ZER 

40 MAT PRINT A 

50 PRINT "MAT B=C0NC3» 71" 

60 MAT B=C0NC3. 7] 

70 MAT PRINT Bl 

80 PRINT "MAT C=IDNC4. A]" 

90 MAT C=IDNC4» Al 

100 MAT PRINT Cl 

110 PRINT "MAT A=C0NC1.61" 

120 MAT A=C0NC 1.61 

130 MAT PRINT Al 

140 END 

RUN 

MATSPI 

MAT A=ZER ** PREVIOUSLY DIMENSIONED AT 2BY4 







































MAT 
1 

1 


B=C0NC3. 
1 

1 


7] 
1 

1 




1 
1 


1 1 
1 I 




1 

MAT 
1 


1 

OIDNr A, 



1 

A} 





1 




1 1 







1 




















1 






















1 






MAT 
1 


A=C0NC 1. 
1 


63 
1 




1 


1 




DONE 













SUMMARY 

We have introduced the matrix operations— multiplication, addition, subtrac- 
tion, and scalar multiplication. The special matrices ZER, C0N, and IDN have 
been specified. 



PROBLEMS FOR SEC. 12-3 

1) Redo program T0TAL using a row vector for the numbers of items and a 
column vector for the prices. Obtain the total cost with a single MAT statement. 

2) Have the computer find the product of 



1 


3 


—2 


-1 


2 


-3 


1 


-3 


7 


5 


-1 


11 


3 


-1 


1 


-1 



and 
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If we think of the above as 



1 


3 


-2 


-1 


2 


-3 


1 


-3 


7 


5 


-1 


11 


3 


-1 


1 


-1 



and 



W 
X 
Y 
Z 



then we are really finding the values of W + 3X — 2Y — Z, 2W — 3X + Y — 3Z, 



-7W + 5X - Y + 11Z, and 3W 
3) Multiply 



■X- 



Y-Z. 





"0 


1 




5 


7 




2 


by 


4 


5 




_0 3_ 




_0 





and multiply 










"0 r 




"5 


6 




2 


by 


4 


1 




_0 3_ 




_0 





Any conclusions abou 


t the matrix 


of 0's? 




4) Let 










A = 


"3 12" 
1 4 


and 


B = 


"-12 
3 



28 

-7_ 

Find the product A ° B and the product B ° A. What do you conclude? 

5) Let 

A = 

Find [A ° B] ° C and A " [B " C]. 

6) Using A, B, and C from problem 5), find A " [B + C] and A ° B + A ° C. 

7) Multiply 



1 


2 


B = 


-1 


—2 


C = 


2 


-11 


3 


4 




5 


3 




25 


31 



1 


2 


-1 




~.08 


-.24 


.2 


2 


-1 


3 


by 


.52 


.44 


-.2 


7 


-2 


4_ 




_.12 


.64 


-■ 2 . 


Let 


"—2 
1.5 


1 

-.5 


and 


B = 


"l 2" 
3 4 





Find A ° B and B " A. 

•J 9) Write a program to raise a matrix to a power. Let the power be determined 
by an item of data. 

10) Enter the integers 1 through 12 into a row vector and into a column vector, 
using MAT READ. (You can avoid typing the data twice by using REST0RE.) 
Find the 12 by 12 product matrix and print it. 
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12-4 SOLVING SIMULTANEOUS LINEAR EQUATIONS 

You should see that the matrix equation 



A 2 

A. 



B 3 



Ci 




X 




L»i 


c 2 





Y 


= 


Da 


c 3 _ 




Z_ 




D :>- 



can be multiplied out on the left-hand side to obtain 

D, 



"AjX + BjY + CjZ 
A 2 X + B 2 Y + C 2 Z 
A 3 X + B..,Y + C 3 Z_ 



D, 



(12-6) 



(12-7) 



Defining equality for two matrices as existing if and only if for all I, J pairs 
the entry of one matrix equals the corresponding entry of the other, or for 
MAT A and MAT B, A[I, J] = B[I, J], we may say that 



AiX + B X Y + CjZ = D x 
A 2 X + B 2 Y + C 2 Z = D 2 
A S X + B 3 Y + C 3 Z = D 3 



(12-8) 



Ax 


Br 


<v 




"X" 




"D! 


A 2 


B 2 


C 2 


s = 


Y 


K = 


D 2 


A 3 


B 3 


c L 




Z_ 




D :| 



which constitutes a system of three linear equations. 

Equations (12-6), (12-7), and (12-8) are simply three different ways of writ- 
ing the same set of equations. If we can find the values of X, Y, and Z in 
Eq. (12-6), we will have solved the set of linear equations in Eq. (12-8). 

Let us rewrite Eq. (12-6) as 

C °S = K 



where 
C = 



It would be very convenient if we could just divide both sides by C. But it 
turns out that the division of one matrix by another is not an easily describable 
process. However, we may instead multiply each side by the multiplicative 
inverse of C. We write that as C _l . Doing that we get 

S = C- 10 K 

We note here without elaboration, the following facts: 

1) In order to have an inverse, a matrix must be square. 

2) Not all matrices have inverses. 

3) The product of a square matrix and its inverse is the identity matrix. 

To see more clearly what the inverse of a matrix is, let us find the inverse of 

5 6" 

7 8 
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We may call its inverse the matrix with entries A, B, C, and D such that 





"A B 
C D 





"5 6" 
7 8 


= 


"1 





1 


Finding the product on the left, we get 






~5A + 7B 
5C + 7D 




3A + SB " 
SC + 8D 


= 


"1 





1 



Two matrices are equal if their corresponding entries are equal. So we get 
the following four equations: 

5A + 7B = 1 6A + SB = 

5C + 7D = 6C + 8D = 1 

Solving these for A, B, C, and D we get A = —4, B = 3, C = 3.5, and 
D = -2.5. So 



6 



-4 
3.5 



3 

-2.5 



BASIC provides a statement to find the inverse of a square matrix, if it 
exists. After we have arranged for proper dimensioning, we may use 

XXX MAT X = INV(A) 

MATINV 

10 DIM XC2.2I. AC 2, 2], PC 2,2] 

20 MAT HEAD A 

30 MAT X=INV<A> 

40 PRINT "0RIGINAL MATRIX" 

SO MAT PRINT A) 

60 PRINT "INVERSE MATRIX" 

70 MAT PRINT XJ 

80 PRINT "THE PR0DUCT IS" 

90 MAT P = X*A 

100 MAT PRINT PJ 

110 DATA 5,6*7,8 

120 END 

RUN 

MATINV 

0KIGINAL MATRIX 
5 6 



INVERSE MATRIX 
-A. 3. 



3.5 



■2.5 



THE PR0DUCT IS 
1 
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and matrix X will be the inverse of matrix A. We may easily verify our calcu- 
lations for finding the inverse above. See MATINV. 

(You are cautioned that the computer may be susceptible to slight errors 
when using the INV( ) statement.) 

So with the MAT INV( ), we should be able to solve sets of simultaneous 
linear equations such as the following: 

4W- X + 2Y + 3Z = - 3 (12-9A) 

-W + 4X + 2Y =-15 (12-9B) 

W + 2X- Y + 3Z = -3 (12-9C) 

-4W + 3X + 2Y + Z=-17 (12-9D) 



We let 



C = 



" 4 

-1 

1 

-4 



-1 

4 
2 
3 



2 

2 

-1 

2 



where C is usually referred to as the coefficient matrix, and we let 



K = 



"- 3" 
-15 
- 3 
-17 



Now we can read the data into two matrices C and K, have the computer find 
the inverse of C, and multiply it by K to get matrix S consisting of the values 
for W, X, Y, and Z, which satisfy Eq. (12-9). See program S0LVE. 



S0LVE 

10 DIM Ct.A,A],Kt A, U*SC A, 13. IIA.A1 

20 MAT HEAD C»K 

30 MAT I=INV(C) 

AO MAT S=I*K 

50 PKiNT "S0LUTI0iMS»" 

60 MAT PRINT S 

70 DATA Am - 1»2» 3» - 1» A, 2, 0, 1 > 2» - 1, 3> - A, 3» 2> 1» - 3» - 1 5» - 3» - 1 7 

80 END 

RUN 

S0LVE 

S0LUTI0NSJ 
1. 
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The column vector 

" 1" 

-2 
-3 

is to be interpreted as, W = 1, X = -2, Y = -3, and Z = -1. We may now 
substitute these values in Eq. (12-9) to verify that they do in fact constitute the 
unique solution. 

SUMMARY 

We have seen that sets of simultaneous linear equations may be solved by 
considering an equivalent matrix equation C * X = K, where C is the coeffi- 
cient matrix, X is a column vector which contains the values of the variables 
in the original set of linear equations, and K is a column vector containing the 
constant terms in the original set of linear equations. We may solve for X by 
finding the inverse of matrix C, so that X = C- 1 * K. The inverse may be found 
with the BASIC statement MAT I = INV(C). For systems of simultaneous 
linear equations having a unique solution, MAT C will always be square, which 
is one of the requirements for having an inverse. 



PROBLEMS FOR SEC. 12-4 



1) Let 





4 


-4 


4 




A = 


1 


1 7 






_-3 


9 -8_ 




Find and print A~ 


-i, A«A-i, and A- 1 "A. 


2) Let 




B = 


"-8 



-3~ 
-1_ 







Find B^ 1 and print it. Verify by hand-computing the inverse of B, Find and print 
B ° B- 1 andB- 1 °B. 

3) Solve for X and Y: 
-2X - 5Y = -16 
- X + 4Y = 31 

4) Solve for X, Y, and Z: 
2X - 9Y - 5Z = 2 
7X _ 6Y + 5Z = -35 
9X - 6Y + 5Z = -39 
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5) Solve for X, Y, and Z: 

3X + 4Y + Z = 7 
5X - 6Y + 3Z = 8 

3X + 4Y + Z = -3 

6) Solve for W, X, Y, and Z: 

6W + 3X + 6Y + 5Z = -12 
-7W + 5X - 7Y - Z = 77 
-3W + X + 3Y + 6Z = 31 
-2W - 4X + 4Y - 7Z = -76 

7) Solve for W, X, Y, and Z: 

-3W + 6X - 5Y - Z = -32 
W + 9X - 5Y - 2Z = 9 
W + 6Y + 5Z = 2 
— 7W + 4X - Y + 5Z = -86 

8) Solve for X, Y, and Z: 
2X + 4Y - 3Z = -11.9 

-9X - 3Y = 58.5 
-9X + 8Y + 5Z = 66.6 

9) Solve for V, W, X, Y, and Z: 

7V + 6W - 3X - Y + 9Z = 26.3 
-9V + 2W + 9X + 5Y + Z = 91.1 
-3V + 4W + 5X + 5Z = 62.9 
6V - 8X - 2Y - 6Z = -55.6 
-3V - 9W + 5X + 7Y + 3Z = -25.9 



10) Let 



A = 



_2 

-1 

3 



and 



B = 



2 


_4 





3 


1 


2 


5 


2 


-5 



Find and print (A ° B)- 1 and B- 1 ° A" 1 . 

■J 11) Write a program that can solve sets of simultaneous linear equations having 
different numbers of equations. Have an item of data that is the number of equa- 
tions and redimension all matrices accordingly. 



12-5 TRANSPOSE OF A MATRIX 

Suppose you have just solved a set of 1U simultaneous linear equations. The 
10 values of the 10 unknowns are entered into a column vector that is called 
X in Sec. 12-4. Calling for MAT PRINT X prints the 10 values down the page 
with a blank line between every two. This takes up a lot of space. It: might 
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be convenient to enter these same values in a row vector and MAT PRINT 
that on one line. What we want is to create a new matrix whose row corre- 
sponds to the column of the matrix X and whose columns correspond to the 
rows of matrix X, i.e., an exchange of rows and columns. Of course we could 
make the exchange element by element or we could do the printing entry by 
entry, but both are unnecessary. BASIC provides a program statement to per- 
form this set of exchanges. XXX MAT A = TRN(B) fills matrix A so that its 
rows correspond to the columns of B and its columns correspond to the rows of 
B. This set of exchanges creates a matrix called the transpose of B. We write 
the transpose of B as B 4 . 

As noted earlier, the transpose will enable us to have more compact print- 
ing in some programs. The transpose also introduces some matrix properties 
of theoretical interest. Some of these properties may be suggested by the 
exercises. 

TRP0S1 is simply a demonstration program that finds and prints the trans- 
pose of a 10-element column vector. 



TRP0S1 

8 REM A IS A C0LUMN VECT0R AND B IS A R0W VECT0R 

10 DIM AC 10* U.BC 1. 10] 

20 MAT READ A 

30 DATA 1.2, 3.4.5. 6. 7. 8.9, 10 

40 MAT B=TRN(A) 

45 PRINT "TRANSP0SE 0F C0LUMN VECT0R A" 

50 MAT PRINT BJ 

60 END 

RUN 

TRP0S1 

TRANSP0SE 0F C0LUMN VECT0R A 
123456789 10 



D0NE 



The transpose differs from the inverse in that every matrix has a transpose. 
If MAT A has M rows and N columns, then A' has N rows and M columns. 
Let us write a second demonstration program to print a 2 by 4 matrix and its 
transpose. See TRP0S2. 



TRP0S2 








10 


DIM 


AC 2. 4J.BC4. 2.1 






20 


PRINT "2 BY 4 MATRIX- 






30 


MAT 


READ A 






40 


MAT 


PRINT Al 






50 


MAT 


B=TRN<A) 






60 


PRINT "TRANSP0SE 0F THE 


AB0VE 


MATRIX 


70 


MAT 


PRINT BJ 






80 


DAT0 


\ 3. 6. 1,-5.0. 18.999. 


1 1 




90 


END 
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RUN 
TRP0S2 










2 BY 4 
3 


MATRIX 
6 1 


-5 







IB 


999 


11 




TRANSPOSE 0F 
3 


THE 


AB0VE 


MATRIX 


6 


IS 








1 


999 








-5 


11 









D0NE 



MAT X = TRN(Y) 

Creates a matrix X so that for all I, J pairs, X[I, J] = Y[J, I]. Dimen- 
sions must be correctly provided for. X is called the transpose of Y. 



PROBLEMS FOR SEC. 12-5 



1) Let 














1 


-2 3" 




A = 


2 


1 -4 






_-3 


4 1_ 




Find and print A 1 , A 1 -f A, and A 


t_ A 


2) Let 






P 


3 1~ 






A = 


6 
_3 


-2 9 
9 1_ 






Print A', A + A 1 


A - At, and A 


-A. 


3) Let 






A = 


"l 
3 


2~ 
4_ 









Let B = A' and let C = A~>. Print B~> and O. 
4) Let 



A= 5 8 and 



2 


-1 


3 


5 





8 


3 


4 


2 



6 

9 

11 



3 
5 

—2 



Print [A ° B]', B' ° A', and A 1 ° B'. 



CHAPTER 13 



Elementary Probability 



13-1 INTRODUCTION 

It is the purpose of this chapter to introduce some fundamental concepts 
of probability and to develop program routines for some of these applications. 

Taking an intuitive approach to probability, we may think of rolling a die. 
The term experiment is used to describe a particular trial, or in the case of 
rolling a die, an experiment is the actual rolling of the die. The outcome is the 
number that comes up. There are six possible outcomes for rolling a die. We 
may say that the probability of the die coming up 2 is one in six or %, 
because there is only one 2 and there are six different numbers, each of which 
is equally likely to come up. We refer to the outcome we are looking for as a 
success and all others as failure. We define probability so that the probability 
of success P added to the probability of failure Q is 1, or P + Q = 1. 

Often our requirements for success permit more than one single outcome, 
all of which are equally likely to occur. We define probability as the quotient 
of the number of outcomes that constitute success and the total possible 
number of outcomes: 

P = S/T 

where P is the probability of success, S is the number of outcomes that 
constitute success, and T is the total number of possible outcomes. All out- 
comes are equally likely to occur. 

So, before we work with probability, we will have to develop ways of 
counting the numbers of outcomes of various kinds of experiments. 

13-2 ENUMERATION 

Fundamental Principle of Enumeration 

The Fundamental Principle of Enumeration states that, if one choice can 
occur in A ways and then a second choice can occur in B ways, the total 
number of ways that the two choices may occur is the product of A and B, 
or A ° B. 

197 
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So, if you are going to buy a car that comes in five models and seven 
colors, the number of cars you have to choose from is 5 ° 7, or 35. The 
Fundamental Principle of Enumeration may be extended to cover any number 
of choices so that, if in buying the car you also may choose airconditioning 
and whitewalls and you have four engines from which to choose, the number 
of cars available is 5 ° 7 ° 2 ° 2 ° 4, or 560. 

Permutations 

How many four-letter combinations may be formed using the letters of the 
word FLAG each used once? 

We could approach this problem in one of several ways. We could sit down 
with pencil and paper and try to write them all, or we might write a program 
to write them all. 

The techniques required for this vary so greatly from system to system 
that we will- not present the program, but only the RUN. 



RUN 
FLAG 

FLAG FLGA FALG FAGL FGLA FGAL 

LFAG LFGA LAFG LAGF LGFA LGAF 

AFLG AFGL ALFG ALGF AGFL AGLF 

GFLA GFAL GLFA GLAF GAFL GALF 

D0NE 



We can easily see that the number of different combinations is 24. Each of 
the combinations listed is a permutation of the four letters F, L, A, and G, and 
each is different from the others because the letters are in a different order. 
In other words, when we talk about permutations, order matters. 

One other approach to solving the original problem will lead us to a more 
general enumeration technique. We observe that to form a four-letter word 
using four different letters once, we may use any one of the four letters for 
the first letter. Now there are only three letters left from which to choose the 
second letter, two left from which to pick the third letter, and finally we have 
exactly one letter for the fourth letter of the new word. Using the Fundamental 
Principle of Enumeration, there are four choices. The first can occur in four 
ways, the second can occur in three ways, the third in two ways, and the 
fourth in one way. This makes 4 ° 3 ° 2 " 1 or 24, ways that the four choices 
can occur. 

This kind of calculation occurs often in mathematics and so is given a special 
name. 4°3 2 lis called 4 factorial written as 4! . In general, 

N(N-l)(N-2)---(2)(l) = N! 

where N is a positive integer. Let us write a routine to compute factorials 
(see program N!). 
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10 


PRINT "FIND THE FACTORIAL 0F"J 


20 


INPUT N 


30 


LET F=l 


40 


FOR X=N TO 1 STEP -1 


50 


LET F = F*X 


60 


NEXT X 


70 


PKINT N; "FACTOHIAL ="JF 


80 


END 


RUN 




N! 





FIND THE FACTORIAL 0F?4 
4 FACTORIAL = 24 



DONE 



Of course for larger integers, N! becomes very large. 



RUN 
N! 



FIND THE FACTORIAL 0F?20 
20 FACTORIAL = 2. 43290E+ 1 t 



DONE 

Suppose we want to find the number of three-letter words that can be 
formed from the letters of the word COMPUTER without duplication. For 
the first letter we may pick from among eight, for the second we may pick 
from among seven, and for the third we may pick from among the remaining 
six letters. This makes 8 ° 7 ° 6, or 336, different words. Since the order is 
different, these are 336 different permutations. Notice that 

„„„„„ 8°7 e 6 5M 3 2°l 8! 8! 

8 "7 ° 6 = - 



5 ° 4 ° 3 ° 2 ° 1 ~ 5! ~ (8 - 3)! 

We should see that for the number of arrangements of R letters taken from 
among N different letters with no duplications we get N!/(N — R)L This 
defines the number of permutations of N things taken R at a time written as 



N! 



(13-1) 



n*b - ( N - R)! 

Writing the right side of Eq. (13-1) as the quotient of products, we get 

- N(N - 1)(N - 2) - ■ • (N - R + 1) (N - R)(N - R - 1) • ■ ■ (2)(1) 
n*k- (N-R)(N-R-1)---(2)(1) 

Dividing we get 

N P„ = N(N - 1) - ■ ■ (N - R + 1) 

which is ideal for computing witli a loop that goes from N to N — R + 1 
STEP -1. See line 40 of program NPR. 
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10 


READ N»R 


20 


IF N = THEN 100 


30 


LET P=l 


40 


FOR X = N TO N-R+l STEP -1 


50 


LET P = P*X 


60 


NEXT X 


70 


PRINT N; "THINGS"; RJ "AT A TIME HA VE" J PJ "PERMUTATI ON S' 


80 


G0T0 10 


90 


DATA 8,3.4,4.0.0 


100 


END 


RUN 




NPR 




8 


THINGS 3 AT A TIME HAVE 33fi PERMUTATIONS 


4 


THINGS 4 AT A TIME HAVE 24 PERMUTATIONS 



DONE 



Combinations 



The distinction between combinations and permutations is order. For com- 
binations, order does not matter. We may think of combinations as selections 
of items while permutations are arrangements. The number of combinations of 
four letters selected from among four letters is one. The number of combina- 
tions of N different things taken R at a time is written N C R . We may find the 
number of combinations of N things taken R at a time by looking at the 
number of permutations. Each combination of R things could be arranged in 
R! ways and that gives us the number of permutations. So 

(nC„)(R!) = N P K 
and solving for N C It we get 



nCr — 



n-Pr _ N! 



R! ~ (R!)(N-R)! 



Thus, the number of combinations of three letters selected from eight different 
letters with no duplications is 

r _ 8! _r r 
bL ' s ~ 315! -5b 

while the number of permutations is 

8 P 3 = 336 

Combinations pertain to such things as committees and dealing cards where 
order does not matter. 

If we want to know the number of five-member committees that can be 
selected from among 20 people, we get 20C-,. for the purpose of writing a 
computer program, we might think of , M C r , as a „P r ,/R!. One approach is to 
compute .j„P.-, and then successively divide by the integers from 5 down to 1. 
Let us draw a flowchart (Fig. 13-1) and call the program NCR. 
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Cj^lJ 



Fig. 13-1. Flowchart for computing 

combinations of N things taken R at 

a time. 




F0R X = N T0 
N-R + 1 STEP-1 



-<4r . 



LET C = C»X 



NEXT X 



V 



F0R X = R T0 1 
STEP -1 



•^T" 



LET C = C/X 




PRINT 
results 



""ft*" 



NEXT X 



NCR 



10 


READ N,R 




20 


IK N = THEN 150 




30 


LET C=l 




40 


HEM 30 TO 50 FIND NPR 




50 


F0R X=N T0 N-R+1 STEP -1 




60 


LET C=C*X 




70 


NEXT X 




80 


REM 60 T0 80 DIVIDE BY R! 




90 


F0R X=R T0 1 STEP -1 




100 


LET C=C/X 




1 10 


NEXT X 




120 


PRINT N;"THINGS"JRJ "AT A TIME HAVE"! C! 


"COMBINATIONS 


130 


G0T0 10 




140 


DATA 8, 3, A, A, 20, 5.0.0 




1 50 


END 
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RUN 
NCR 

8 THINGS 3 AT A TIME HAVE 56 COMBINATIONS 
A THINGS A AT A TIME HAVE I COMBINATIONS 

20 THINGS 5 AT A TIME HAVE 15504 COMBINATIONS 

DONE 

Permutations of Things Not AH Different 

Suppose we want to know the number of arrangements possible for the let- 
ters of the word PROGRAM. Since there are two R's and we cannot tell which 
is which, taking 7! counts every distinguishable arrangement twice, because 
the R's may occupy two positions in 2! ways. Therefore, the number of words 
is 7!/2!. How many ways can we arrange the letters of the word ABSENTEE? 
Well, if the E's were distinguishable, we would get 8!; but that counts the 
indistinguishable arrangements 3! times, because three E's can be arranged in 
three locations in 3! indistinguishable ways. So we get 8!/3!. The letters of the 
word SNOWSHOES can be arranged 9!/2!3! ways, because the two O's can 
be arranged in 21 ways and the three S's can be arranged in 3! ways. 



Partitioning 

In how many ways can we arrange three X's and five Y's? We get 8!/3!5!. 
We might ask this question in the following way: In how many ways can we 
put eight different things in two groups where one group contains three things 
and the other contains five and order does not matter? 

In how many ways can we arrange three X's, five Y's, and six Z's? We get 
14!/3!5!6!. We could ask the question in the following way: In how many 
ways can 14 different items be put into three groups of three, five, and six 
items? 

The second version of each of the last two problems are examples of parti- 
tioning. In general, if we have R x , R 2 , . . . , R„ items such that R! + R 2 

-) + R n = T, then the number of ways that we can put the T items in n 

groups of Rj, R 2 , • • • , R„ ' s 

T! 

N = 



RilR,! •• R n l 



Note that all the problems treated under permutations and combinations 
were really special cases of partitioning. The combinations of N things taken 
R at a time may be thought of as partitioning into two groups of R and N — R 
items. The problem of arranging SNOWSHOES may be thought of as parti- 
tioning into six groups of three items for the S's, two items tor the Os, and one 
item each for the four remaining letters N, W,- H, and E. Finally, the permu- 
tations of N different items taken R at a time may be thought of as R + 1 
groups of N — R in the first group and one item each for the other R groups. 
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SUMMARY 



This section has been devoted to introducing the Fundamental Principle of 
Enumeration and the enumeration of permutations, combinations, and parti- 
tionings of objects. In counting permutations order matters. Permutations count 
such things as arrangements of letters in a word and books lined up on a 
bookshelf. When counting combinations order does not matter. We use com- 
binations for such things as the number of different committees formed from 
a group of people and hands dealt in a game of cards. 



PROBLEMS FOR SEC. 13-2 

1) In how many orders can 15 people enter a classroom? 

2) In how many different ways can 15 keys be put on a circular key ring? 

3) Cars come in 18 colors, seven models, four engines, and there are 15 options 
such as whitewalls, outside mirror, radio, etc. How many different cars are available? 

4) You have 25 different books and two bookshelves, one of which holds exactly 
12 books and the other holds exactly 13 books. In how many ways can the books 
be arranged on the shelves? 

5) In a class of 30, a six-member committee is to be selected. How many differ- 
ent committees are possible? If there are 15 girls in the class, how many of the com- 
mittees consist of six girls? 

6) How many different five-card hands may be dealt from a deck of 52 cards? 

7 ) How many different 13-card hands may be dealt from a deck of 52 cards? 

8) There are five people in a room. In how many ways can they all have 
different birthdays? Use a 365-day year and ignore Feb. 29. 

9) In how many ways can 10 people have all different birthdays? Ignore Feb. 29. 

10) If a state uses three letters followed by three digits for its license plates, 
how many different license plates can it produce? 

11) You have five different flags with which to form signals by arranging them 
all on a flagpole. How many signals can you form? 

12) You have five different flags with which to form signals by arranging up to 
five of them on a flagpole. How many signals can you form? Let zero flags constitute 
a signal. 

13) You have 10 different flags with which to form signals by arranging up to 
five of them on a flagpole. How many signals can you form? 

14) You have 50 friends. You are going to have a party and can only invite 25 
people. How many different guest lists could you have? 

15) In how many ways can 15 people sit in a row of 15 chairs? 

16) Do problem 15) if two of the people must sit next to each other. 

17) How many different words can be formed from the letters of the word 
COMPUTERS if 1) you must use all of the letters and 2) you must leave out one 
letter? 

18) A class consists of 30 students of which 17 are girls. In how many ways can 
we select a committee of four? How many will have two boys and two girls? How 
many will have one boy and three girls? How many will have four girls? How 
many will have four boys? 

19) How many outcomes are possible for rolling two dice followed by drawing 
three cards from a 52-card deck? 
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20) How many different sets of two five-card hands can be dealt from a 52-card 
deck? 

21) How many words can be formed using all the letters in MISSISSIPPI? 

13-3 SIMPLE PROBABILITY 

We defined probability in Sec. 13-1 as S/T, where S is the number of 
ways in which an outcome may constitute a success and T is the number of 
possible outcomes, and all outcomes are equally likely. For flipping a coin, 
we see that the probability of coming up heads is 1/2 or .5. For drawing a 
card from a 52-card deck, the probability of getting the ace of spades is 1/52 
or about .0192. 

Suppose you are in a class of 29 students and a committee of four members 
is to be selected at random. What is the probability that you get on the com- 
mittee? Well, the total number of committees possible is 29 C 4 , Now all we 
have to find is how many of those committees count yourself as a member. 
We can find out by saying in effect, "Let us put you on the committee and 
pick the other three members from the remaining 28 class members." This 
means that you will be on 28 C 3 of the committees, and the probability that 
you get on the committee is 28C3/20C4. Let us write a program to compute 
this probability. We can use lines 30 through 110 of program NCR as a 
subroutine to first find 2H C 3 and then find 29 C 4 . See program CLASS. You can 
see that your chances are about 14%. You should also see that the probability 
that you do not get on the committee is about 1 — .14 or .86. 



CLASS 

10 READ N»K 

20 G0SUB 500 

30 LET C1=C 

32 REM CI ST0RES THE NUMBER 0F C3MMITTEES 0F WHICH 

33 REM Y0U ARE A MEMBER 
40 READ N»R 

50 G0SUB 500 

60 LET P=C1/C 

70 PRINT "THE PR0BABILITY THAT Y0U GET 0N A 4 MEMBER" 

75 PRINT "C0MMITTEE FK0M A CLASS 0F 29 I S"» P 

80 ST0P 

490 REM FIND C0MBINATI0NS 0F N THINGS TAKEN R AT A TIME 

500 LET C=l 

510 F0R X=N T0 N-R+l STEP -1 

520 LET C=C*X 

S30 NEXT X 

540 F0R Y = R T0 1 STEP -1 

550 LET C=C/Y 

560 NEXT Y 

570 RETURN 

600 DATA 28. 3 

610 DATA 29,4 

77J Era u 

RUN 

CLASS 

THE PR0BABILITY THAT Y0U GET 0N A 4 MEMBER 
C0MMITTEE FR0M A CLASS 0F 29 IS .137931 

D0NE 
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Suppose we roll a die. The probability that a 3 comes up is one in six or 
1/6. Now roll the die again. Again, the probability of a 3 is 1/6. We can see 
that if we roll the die twice, the probability of both rolls corning up 3 is 
(1/6) ° (1/6), or 1/36. We define an event as a set of outcomes for a particular 
experiment. If we have two events A and B such that the probability of suc- 
cess for A is P and the probability of success for B is Q, the events A and B 
are said to be independent if the probability of success for A and B both is 
P ° Q. This is exactly the case for rolling a 3 on each of two dice, which 
enables us to arrive at probabilities without actually enumerating outcomes. 
Thus we have extended our definition of probability. 

For rolling two dice, the events associated with the first die are independent 
of the events associated with the second die. The same may be said of rolling 
the same die twice. Flipping two coins are independent. Drawing a card from 
a deck is independent of rolling a die. So, the probability of getting a 1 and 
an ace upon rolling a die and drawing a card is (1/6) ° (4/52), or (1/78). 

Let us look at a problem often referred to as the "birthday problem." Sup- 
pose you are in a room with 29 other people. What is the probability that 
at least two people have the same birthdate? We can say that if the probabil- 
ity of no two people having the same birthdate is P, then the probability 
that at least two do have the same birthdate is 1 — P. The birthdates for two 
people are independent events, so we may multiply individual probabilities. 
Picking any person first, we say that his probability of having a different birth- 
date from those already picked is 365/365. Picking a second person, the 
probability that his birthdate is different from the first person's is 364/365. 
For the third person we get 363/365 as the probability that his birthdate is 
different from the first two, and for the 30th person we get 336/365 as the 
probability that his birthdate is different from each of the first 29 birthdates. 
So, the probability that all are different is 

365 364 336 



365 365 ' ' " 365 

and the probability that at least two people have the same birthdate is 1 — P. 
We can write a short program to compute 1 — P. See BIRTH. 

The chances are about 71%, which is much higher than many people would 



BIRTH 






10 LET P = 1 






■d0 FOR 0=365 TO 336 STEP -1 






30 LET P=P*D/365 






40 N EX T D 






50 LET i.)=l-P 






60 PRINT "THE PROBABILITY OF TWO OH MORE" 






70 PRINT "IDENIICAL BIRTHDATES AMONG 30 PEOPLE 


I S" 


; Q 


HO END 






RUN 






BIRTH 







THE PROBABILITY OF TWO OR MORE 

IDENTICAL BIRTHDATES AMONG 30 PEOPLE IS .706316 
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guess before doing the problem. Note that this is not the probability that 
someone else in the room has the same birthday that you have. That problem 
is left as an exercise. 

SUMMARY 

We have initially defined probability as the quotient of the number of ways 
to constitute success and the total number of possible outcomes for equally 
likely outcomes. We see that this can easily be applied to situations of enumer- 
ation. Independent events which have individual probabilities P and Q occur 
together with a probability of P ° Q. This produces an extended definition of 
probability which does not always require enumeration, but requires only that 
we know individual probabilities for successive events. 



PROBLEMS FOR SEC. 13-3 

1) A class of 29 has 16 girls. A committee of five is selected at random. What 
is the probability that all five committee members are girls? 

2) Ten people are to sit in a row of 10 chairs. What is the probability that two 
particular persons sit next to each other? 

3) What is the probability of being dealt the ace of spades, the three of clubs, 
the eight of hearts, the seven of diamonds, and the 10 of clubs? 

4) What is the probability of being dealt the ace, king, queen, jack, and 10 of 
spades from a 52-card deck? 

5) What is the probability of the first six flips coming up heads and the last 
four tails when flipping a coin 10 times? 

6) What is the probability of getting all heads when flipping a coin 10 times? 

7) You have a list of 20 true-false questions from which 10 will be selected at 
random for a test. Of the 20, there are 15 you are guaranteed to get right and five 
that you are guaranteed to get wrong. What is the probability that you will get 
exactly eight right? 

8) An experiment consists of drawing a card from a 52-card deck until the first 
ace appears. Find the probability of the first ace appearing on the fourth draw. 

9) For the experiment of problem 8), find the probability of the first ace appear- 
ing on draws one through ten. 

10) An experiment consists of rolling a die until it comes up 2. Find the proba- 
bility of the first 2 coming up on the fourth roll, on the tenth roll. 

/ 11) Refer to the birthday problem. How many people must be in a room to have 
the probability of at least two identical birthdates be .5? 

12) You are in a room with 29 other people. What is the probability that one of 
them has your birthdate? 

J 13) How many people must be in a room for the probability of another person 
to have your birthdate be .5? 

13-4 RANDOM SIMULATION 

We may use the random number generator to simulate experiments that 
occur at random. We can have the computer flip a coin by generating two 
random digits. We can roll a die by generating six random digits, etc. 
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FLIP 

5 LET C=0 

10 F0i< X=l TO 50 

20 LET F=INTC2*Ri\IDC 1 )) 

30 IF F= 1 T"EN 60 

AO PRINT "T"J 

50 G3T0 100 

58 REM C COUNTS THE NUMBER OF HEADS 

60 LET C = C+1 

70 PRINT "H"; 

100 NEXT X 

110 PRINT 

120 PRINT 'MEADS ";C;"0UT OF 50 FLIPS" 

130 END 

RU^l 

FLIP 

HTTHTTTHTTHHHTTTHHHTHTTHHHTTTTHHHHHTTHTHTHTTTTTHTH 
HEADS 23 OUT 3F 50 FLIPS 



Let us begin by having the computer flip a coin 50 times. See program FLIP. 
We get 23 heads out of 50 flips. One of the intriguing things about flipping 
a coin many times is that we do not get heads for half of the flips for each 
experiment. In fact, it is possible to flip a coin 50 times and get no heads or 
to get all heads. Of course the probability of all heads or no heads is very 
small compared to the probability of half heads. We will be able to compute 
those probabilities in the next section. For now we are concentrating on 
simulation. 

In many ways, flipping a coin 50 times is the same as flipping 50 coins once. 
Let us put program FLIP in a loop to perform the experiment 10 times to 
see a range of results. See FLIP-1. 

We get a range of 17 to 34 heads for this RUN of the program, and it 
turned out this time that none of the trials came out 25 heads. 

One of the nice features of simulation by computer is that we can have the 
computer perform hundreds or thousands of trials of an experiment that might 
take days to do with physical apparatus. 



FLIP- 1 










2 


F0R Y=l T0 10 










5 1 


-ET C=0 










10 
20 


F0R X=l T0 50 

LET F=INTC2*RND< 1)) 










30 


IF F=l THEN 60 










40 


PRINT -J"; 










50 


G0T0 100 










58 


REM C C0UNTS THE NUMBER 


3F 


HEADS 


60 


LET C=C+1 










70 


PRINT "H"J 










100 


NEXT X 










110 


PRINT 










120 


PRINT "HEADS "J C;' 


•3UT 


0F 


50 


FLIPS' 


12 5 


NEXT V 










130 


END 
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RUN 
FLIP-1 

HTTTTTHTTHHTTHTTTTTTTTHTHHHHHHTTTTTHTHHHTHHHTTHHTT 

HEADS 21 0UT 0F 50 FLIPS 
HTTHTHHTTHTTHTHHTTTHHHTTTTTTHHHHTTHTHTHHHHTHHTTHHH 

HEADS 26 OUT 0F 50 FLIPS 
HTHTTTHTTHTTHTTTTTTTTHTTHTTTHTHTHTTTHTTTTTHMHTHHHT 

HEADS 17 0UT 0F 50 FLIPS 
THTTTTTTHTHTHTHHTHHHHHHTHTTTHHTTHTTTTTTTHHTHTTHHTT 

HEADS 21 0UT 0F 50 FLIPS 
TTHHTTTTHTHriTTHTHTHHHHTTHHTHHHTTTTTTHTHHHHTTHTHHTT 

HEADS 24 0UT 0F 50 FLIPS 
HTHTHHHHHHHTHTTTTTTTHTTHHHHHHTTTHTTTTHTHTTHHTHHTHH 

HEADS 26 0UT 3F 50 FLIPS 
HTTTTTHTTTTHHTTHTTHTHHHHTHTHHTTHHHHTHTTHTHTHTTTTHT 

HEADS 22 0UT 0F 50 FLIPS 
THTHHHHHHTHTHHHHTTTHHTHTHHHHHTHHHTHHTHHHHHHHTTTHTH 

HEADS 34 0UT 0F 50 FLIPS ,■ 

HTTHHTHHTTHTTTTTTHHHTTTHTTTHHTTHTHTHHHHHTTHHTHHTHT 

HEADS 24 0UT 0F 50 FLIPS 
TTHHTHHTHHHTHTTHTHHHTHHHTTTTHHHTTTTHTTHTHHTHHTHTHT 

HEADS 26 0UT 0F 50 FLIPS 
D0NE 

Let us set up an experiment to roll six dice 1000 times, counting the num- 
ber of times 1 comes up for each roll of six dice. The possibilities are from 
zero to six. Then let us count the number of times each of those seven numbers 
occurs. We can keep track of all seven totals in a 1 by 7 row vector. We will 
count the number of times no l's come up in column 1 and the number of 
times one 1 comes up in column 2, etc. See the flowchart in Fig. 13-2 and 
program R0LL. 

R0LL 

5 REM THE MAT INSTRUCTI0NS ARE CONVENIENT HERE 

10 DIM LC 1*73 

20 MAT L=ZER 

38 REM THE C0MPUTER D0ES 50 THR0UGH 110 1000 TIMES 

40 F0R X=l T0 1000 

50 LET C=0 

55 REM C IS G0ING T0 C0UNT l'S 

58 REM LINES 60 THR0UGH 100 R0LL 6 DICE AND C0UNT l'S 

60 F0R R=l T0 6 

70 LET U=INT(6*RND(1)+1> 

80 IF U>1 THEN 100 

90 LET C=C+1 

100 NEXT R 

110 LET LC 1,C+U=LC WC+13+1 

'20 NEXT X 

130 PRINT "N0NE 0NE TWO THREE F0UR FIVE SIX" 

140 MAT PRINT LJ 

150 END 

RUN 

R0LL 

NONE ONE TW0 THREE F0UR FIVE SIX 
343 410 193 44 9 1 



D0NE 
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Start 



"w" 



Initialize 
vector at 



F0R X = 1 
T01OOO 



^Sp' 










LET C = 

Set counter 
atO 


h 


F0R R = 1 T0 6 
Roll 6 dice 


Ik 


LET U = INT (6 
*RND(1) + 1) 


f 


f 



NEXT X 



G» 



NEXT R 



T 



Enter C into 
vector 




LET C = C + 1 



PRINT 

results 



END 



Fig. 13-2. Flowchart for rolling six dice 1000 times. 



PROBLEMS FOR SEC. 13-4 

1) Have the computer flip six coins 1000 times and print the distribution of 
outcomes. 

2) Sketch a graph of the distribution for problem 1) and the distribution for 
program R0LL. 

3) Write a program to deal five-card hands from a 52-card deck. Be sure not 
to deal the same card twice. 

4) A company manufactures light bulbs and can openers. For light bulbs it is 
known that 1 in 20 is defective and for can openers 1 in 25 is defective. Write a 
program to select at random one light bulb and one can opener 1000 times. Total 
each of the following: the number of times neither was defective, the number of 
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times both were defective, the number of times the light bulb was defective, and 
the number of times the can opener was defective. 

5) A regular tetrahedron has four equilateral triangles as faces. Let an experi- 
ment consist of numbering one face 1 and the remaining faces 2, and tossing the 
tetrahedron into the air to determine which number faces down. Write a program 
to toss the tetrahedron 500 times and count the number of times the 1 faces down. 

6) Roll a die 500 times. Count the number of times the 1 or the 5 comes up. 

7) Roll a die and toss the tetrahedron of problem 5) 1000 times. Count the 
number of times both come out 1 and count the number of times both come out 2. 

8) An experiment consists of rolling a die until a 1 comes up. Write a program 
to perform the experiment 500 times. Count the number of rolls for each experiment. 

9) An experiment consists of flipping a coin until it comes up heads. Write a 
program to perform the experiment 1500 times and count the number of flips 
required for each. Print the distribution. 

10) Roll 10 dice 500 times. Count the number of l's that come up for each roll. 
Print the distribution. 

11) Suppose 10$ of the population is left handed. Write a program to pick groups 
of 10 people at random. Count the number of left-handed people. Print the 
distribution. 

12) Project: Write a program to make the computer the dealer in a game of 21. 

13-5 BINOMIAL TRIALS 

Suppose we roll two dice. What is the probability that a 1 comes up 
exactly once? If we use one red die and one green die, we may more clearly 
describe the results. There are two ways that that we could get exactly one 1. 
First, we could have the red die come up 1 and the green die not come up 1. 
The probability of this is (1/6) ° (5/6). Second, we could have the red die 
not come up 1 and the green die come up 1. The probability of this is 
(5/6) ° (1/6). Now, if we roll the two dice, the probability that we get 
exactly one 1 is the sum of the above two possibilities, or (5/6) ° (1/6) 
+ (1/6) * (5/6)- Or we can say that the probability of exactly one 1 is two 
times the probability of getting a 1 on the green die and not a 1 on the red die 
which is 2 • (5/6) • (1/6). 

Now suppose we roll four dice colored red, green, blue, and white. What is 
the probability that we get exactly two l's? The probability that the red and 
the green dice are l's and the blue and white are not is (1/6) ° (1/6) ° (5/6) 
° (5/6). But we might get the l's on the green and blue with the same proba- 
bility, or we might get l's on the red and white dice with the same probability. 
In fact, there are 4 C, ways that we could select two dice from the four to come 
up with l's. Each "selection has probability of (1/6) ° (1/6) ° (5/6) ° (5/6). 
. So the probability of exactly two l's up for a roll of four dice is 

P = 4 C 2 • (1/6) 2 • (5/6)= 

which simplifies to 25/216. 

Suppose we have 10 dice. What is the probability that exactly two dice 
come up 1 when all 10 are rolled? For a particular selection of two dice, we 
get (1/6) 12 o (5/6) K and we can select the two dice in 1() C 2 ways. So, 

P=1(A° (1/6P 0(5/ 6 )8 
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We can write a short program to find the value of P. Note that in program 
DICE lines 15 through 40 compute the value of 1() C 2 . 

DICE 

JO READ R 

15 LET C=l 

20 F0R X=10 T0 10-R+l STEP -1 

30 LET C=C*X/CI0-X+l> 

40 NEXT X 

50 LET P=C*(l/6)»R*(5/6)t(|0-R) 

60 PRINT P 

65 DATA 2 

70 END 

RUN 

DICE 

.29071 

D0NE 

Program DICE is for exactly two l's. What about the other possible num- 
bers of l's? With just a few changes in program DICE, we can answer that 
quest.on. Instead of computing for R = 2 only, we can let R go from to 
10 in a F0R-NEXT loop. This can be done by changing only lines 10 and 65 
in DICE. See DICE-1. 

In DICE-1 we have defined 11 events that cover all possible outcomes in 
this experiment. There can be no outcomes that do not give from to 10 l's 
It is also true that no two of the events have any outcomes in common. Events 
which do not have any outcomes in common are called mutually exclusive 

DICE-1 

5 PRINT "0NES PROBABILITY" 

10 F0R R=0 T0 10 

15 LET C=l 

20 F0R X=10 T0 10-R+l STEP -1 

30 LET C=C*X/C10-X+1> 

40 NEXT X 

50 LET P=C*Cl/6)tR*<5/6>»ct0-R> 

60 PRINT RJP 

65 NEXT R 

70 END 

RUN 

DICE-1 

0NES PROBABILITY 

.161506 

1 .323011 

2 .29071 

3 .155045 

4 5.42659E-02 

5 1.30238E-02 

6 2.17063E-03 

7 2.48072E-04 

8 1.86054E-05 

9 8.26908E-07 

10 1.65382E-08 

D0NE 
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events. If we have a set of mutually exclusive events that also cover all pos- 
sible outcomes, then the sum of the individual probabilities must total 1. We 
can verify that the sum of the probabilities in DICE-1 is in fact 1. Of course 
one way to do that would be to rewrite the program to total the probabilities in 

DICE-1. 

Suppose we know that 10% of a certain population is left handed. If we 
select 100 people at random, what is the probability that exactly 10 of them 
will be left handed? The probability that a particular set of 10 people will be 
left handed will be (1/10) 10 ° (9/10) 9 P and from 100 people there are 100 C 10 
ways that 10 of them can be left handed. So the probability is 

P = iocAo ° (i/ 10 ) 10 ° ( 9 / 10 )°° 
This too, can be done with a short program. See LEFT. 



LEFT 

10 LET C=l 

20 F0R X=100 T0 100-10+1 STEP -1 

30 LET C=C*X/C100-X+1) 

40 NEXT X 

50 LET P=OC 1 )' 10*(.9)»90 

60 PRINT P 

70 END 

RUN 

LEFT 

.131865 

D0NE 



In general, we should see that if an outcome has probability P of success 
and Q of failure and we perform an experiment consisting of N trials, the 
probability of exactly R successes is 

P = N C R ° P R ° Q N - K 

Experiments that behave in this way are called binomial experiments because 
the values of N C R ° P K ° Q N '- U are the terms of the expansion of the binomial 
(P+Q) raised to the Nth power. 

Binomial Theorem 

Looking at (P + Q) x , we should be able to see the general term in the 
product. (P + Q) N means, write (P + Q) as a factor N times. So 

(P + Q)n = ( P + Q)(p + Q)(p + Q) . . . ( P + Q) 

When we multiply this out, we are actually taking one term from each factor 
in such a way that we can sum up all possible products of combinations of N 
factors one from each (P + Q) factor. How many factors are there in the 
product? There is one term that takes P as a factor N times. There is one term 
that takes P as a factor N — 1 times and Q as a factor once. There is also a 
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term that takes P as a factor N - 2 times and Q as a factor twice, etc., down 
to the term that takes Q as a factor N times. That makes N + 1 terms. Now, 
for a particular term, say p3QN-3 ; we warlt t h ree p s and N minus three q> s . 
We can select three P's from among N terms in N C 3 ways and so the value 
of this term is X C 3 ° P»Q*-3. For the Rth term we get N C R ° PRQ*-k which 
is exactly what we get for a probability of R successes in N trials where the 
probability of success on a single trial is P and the probability of failure on a 
single trial is Q. So to find (P + Q)* we simply evaluate N C R " pRQN-R f or 
all values of R from to N. 

Taking a look at the probability of any binomial experiment, we see that 
since P + Q = 1 and the sum of all X C R ° P I! Q>""-" terms is (P + Q)*, we get 

if P + Q = 1 then (P + (,))>•' = 1 

which can be verified by summing up the probabilities in program DICE-1. 

Finally, if we look at (X + Y) x for X and Y both equal to 1, we get the 
general term in the expansion to be X C K 1 U 1 X - K , which is the same as N C R) 
so that the numerical coefficients of any binomial expansion are simply the 
corresponding values of N C R . Since the values of X and Y are both 1, we are 
really finding the value of 2 X if we sum up all of the coefficients. Let us 
write a program to print the coefficients for values of N from to 11. See 
program PASCAL. 

You may recognize these numbers as Pascal's Triangle which has many 
interesting properties. Problem 9) in Sec. 11-1 and problem 7) in Sec. 5-3 
should also have given the results of program PASCAL. 



PASCAL 






















10 


F0R N = 


= 


T0 11 


















20 


F0R R= 


:0 


T0 N 


















30 


LET C= 


■l 




















40 


F0R X = 


:N 


T0 N- 


■R+l STEP -1 














50 


LET C= 


■C*X/CN- 


•X+l) 
















60 


NEXT * 






















70 


PRINT 


CJ 




















80 


NEXT R 




















90 


PRINT 






















100 


NEXT 


N 




















1 10 


END 






















RUN 
























PASCAL 






















1 


1 

2 






















1 


3 




3 


1 
















1 


4 




6 


4 


1 














1 


5 




10 


10 


5 


1 












1 


6 




15 


20 


15 


6 


1 










1 


7 




21 


35 


35 


21 


7 


1 








1 


8 




28 


56 


70 


56 


28 


8 


1 






1 


9 




36 


84 


126 


126 


84 


36 


9 


1 




1 


10 




45 


120 


210 


252 


210 


120 


45 


10 


1 


1 


1 1 




55 


165 


330 


462 


462 


330 


165 


55 


1 1 



D0NE 
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PROBLEMS FOR SEC. 13-5 

1) Modify PASCAL to sum up the coefficients. Print the values of R and the 
sum of the coefficients. Do not print the coefficients. 

2) Modify DICE-1 to sum up the individual probabilities. Have the loop go 
from 10 to 0. 

3) It is known that 1% of the population has a certain type of blood. In a class 
of 25 persons, what is the probability that exactly two people have this blood type? 

4) A company makes bolts. It is known that 1 in 1000 is defective. You buy a 
box of 100 bolts. What is the probability of Retting exactly one defective bolt? 

5) For the company in problem 4), what is the probability of getting 10 defective 
bolts. 

6) For the company in problem 4), what is the probability of getting at least one 
defective bolt. 

7) For the company in problem 4), what is the probability of getting less than 
five defective bolts. 

8) Find the probabilities of getting zero through six l's when rolling six dice. 
Compare your results with the random simulation in program R0LL. 

9) What is the probability of getting zero through 10 heads when nipping 10 
coins. 

10) What is the probability of getting more heads than tails when flipping 10 
coins. 

11) A test consists of 25 true-false questions. You know that your probability of 
guessing right on any given question is 75%. Find the probability of getting 76% on 
the test, if you guess on all questions, Find your probability of getting 76% or better. 
J 12) An experiment consists of flipping a coin until it comes up heads. Find the 
probability of success for 1 to 10 flips. 

y 13) An experiment consists of rolling a die until it comes up 1. Find the proba- 
bility of success for 1 to 10 flips. Find the probability that success will require more 
than 10 rolls. Find the probability that success will require more than 20 rolls. 
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A-l INTRODUCTION 

Once you have written your program, you would like to have the computer 
execute it. In order to execute a program it must be typed into the com- 
puter. Ideally, we should all be expert typists, but many of us are not. 
So, many time-share terminals provide for punching programs on paper tape 
when the terminal is not connected to the computer. Then the high-speed 
tape reader may be used for reading the program in on-line. Even so, the 
considerate student will do his utmost to improve his typing speed so as not 
to tie up the terminal when others would like to be typing. One suggestion 
is to type all programs in advance before sitting in front of the terminal to 
punch tape. You will benefit in two ways: by getting practice in typing and 
by being able to read the program easily. 

A-2 PUNCHING PAPER TAPE OFF-LINE 

Programs may be stored on a narrow strip of paper tape by punching rows 
of holes in a code. Each row represents a character, space, line feed, carriage 
return, or other nonprinting character. 

There are so many variations from one time-share company to the next, 
that we cannot list them all here. But we can outline the general procedure. 
First the terminal must be switched to local. Then the tape punch apparatus 
must be turned on. Now you want some blank leading tape so that the tape 
reader will be able to read the first character of your program. Some terminals 
generate the blank leader by depressing the HERE IS key. On others, you 
may have to depress the REPT and RUBOUT keys simultaneously until suffi- 
cient tape shows, or try depressing CTRL, SHIFT, REPT, and P all at once. 

Now you may type your program. As you type, holes will be punched, 
which the tape reader will interpret when you feed the finished tape back. 
Be sure to begin each line with a line number and touch the RETURN and 

215 
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LINE FEED keys at the end of each line. (There may be a special key for 
RETURN.) 

If you make a typing error, you may correct it in one of several ways. If 
it is the previous character or within a few characters, depress the backspace 
button on the tape punch apparatus once for each character you wish to 
erase. Then touch the RUBOUT key once for each backspace. The RUBOUT 
key punches out all holes in the row and will be ignored by the computer 
and will not print. Alternatively, you may depress the SHIFT key and the 
key once for each character you wish to erase. A backwards arrow will be 
printed for each correction. Spaces do count as characters for this purpose. If 
the entire line is a lost cause, simply RETURN, LINE FEED, and begin 
typing from the beginning including the line number. After you have finished 
typing, touch RETURN and LINE FEED. Then generate blank tape as you 
did before typing your program. The idea is to get some paper that is not 
filled with holes so that you may write some kind of identification on the 
tape. As soon as you have your second tape, the need for this will become 
obvious. After tape preparation is completed, tear it off and roll it up. It is 
suggested that you not roll it less than about 2 in. in diameter, as the tape 
will take on a permanent curl and that may cause trouble in the reader later. 

A-3 READING PAPER TAPE 

With the terminal on-line and the previous program erased, you are ready 
to enter your program into the computer via the tape reader. Again computers 
vary, but most require a system command, and for some the command is 
TAPE followed by turning the tape reader on. After the tape is read in, 
remove your tape from the reader and roll it up again. If the computer 
requires a system command to enter tape mode, then a second command will 
be required to remove it from that mode. The command KEY removes the 
computer from tape mode and" prepares it for instructions from the keyboard. 
The command RUN usually will serve the same purpose. 

At this time the computer takes your entire program and compiles it. To 
compile a program means to put all instructions in order and convert it to a 
form that the computer uses to actually perform the instructions. In order to 
run, all statements must be legal BASIC statements and the entire program 
must fit certain requirements that vary depending on the computer. 

At this point, you should read all of Appendix B and then return and finish 
this appendix. 

A-4 GETTING THE COMPUTER TO PUNCH PAPER TAPE 

Having read Appendix B, you can see that after you have read in a program 
on tape, you may make many changes or auditions. Ailei yuu nave uiaue an 
of the necessary changes or after it becomes clear that you cannot make all of 
the necessary corrections in a reasonable length of time at the keyboard, you 
may want a new tape of the program in its latest form. Here again, time- 
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share systems will vary, but you will have a way of getting the computer to 
punch your program. Some will automatically provide blank leading and 
trailing tape, others will require you to use the method you used when you 
typed off-line. Two of the system commands in use are PUNCH and LIST- 
N0-HEADER. 

Now you have two tapes for the same program. Most likely you will want 
to throw the old one away. Be sure to write some identification on the new tape. 
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B-l INTRODUCTION 

From the time you type the last line of your program to the completion 
of a successful RUN, there are three types of errors that may show up: 1) those 
errors that prevent a RUN; 2) those errors that allow a RUN to begin but 
cause it to terminate during execution; and 3) those that permit a complete 
RUN, but cause the computer to produce an unexpected or incorrect result. 
The whole process of taking a program that does not work and turning it into 
one that does is called debugging. Let us look at the errors by type. 



B-2 ERRORS THAT PREVENT RUN 
These are very often simply typing errors: 

10 LT-ET X=5 

20 PR0NT X 

30 END 

RUN 

N0 STATEMENT TYPE F0UND IN LINE 20 

The exact wording will vary from computer to computer, but the message 
is clear. We retype line 20 as in the following: 

20 print x 

RUN 

5 
D0NE 

Even though BASIC does use English words, you may not get too conversa- 
tional as in the following: 

218 
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10 READ X AND Y 

20 PRINT X.Y 

30 DATA As 5. 7, - 1 1 

40 60 T0 10 

50 END 

RUN 

CHARACTERS AFTER STATEMENT END IN LINE 10 

As far as BASIC is concerned, line 10 says READ X. The AND Y is not 
part of the language and so is rejected. Since there is no way to know just 
what the characters after X mean, if the first one is not a comma or a single 
digit, the computer will not take a guess at what you meant. You must say 
exactly what you mean; the computer is not clairvoyant. So, change line 10 
as follows: 



10 READ X, Y 
RUN 




4 
7 


5 
-1 1 



0UT 0F DATA IN LINE 10 

To multiply X times Y in algebra we write XY. 

10 LET x=5 

20 LET Y=10 

30 LET Z = XY 

40 PRINT Z 

50 END 

RUN 

CHARACTERS AFTER STATEMENT END IN LINE 30 



However, even though in algebra XY is understood to mean X times Y, you 
must be more explicit for the computer, and write X " Y. 



30 LET Z = X*Y 

RUN 



50 

D0NE 



Let us put many errors in one program and see what happens. 



10 let x= 5 

20 READ Y » Z 

30 LER H=Y* Z 

40 PRINT X 

50 LET A*8=X 

60 READ W 

70 G0T0 9010 

80 LET S=CAX + B)*CCX+D> 

90 LET Al 

100 G0 BACK T0 10 

1 10 LET X=3*4+5> 
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120 DATA 5* 11* 25. -5 

130 PRINT Wt2 

140 G0T0 60 

150 DATA 2* 67.-1. 

RUN 

N0 STATEMENT TYPE FOUND IN LINE 30 

MISSING ASSIGNMENT 0PERAT0R IN LINE 50 

MISSING RIGHT PARENTHESIS IN LINE 80 

MISSING ASSIGNMENT 0PERAT0R IN LINE 90 

N0 STATEMENT TYPE F0UMD IN LINE 100 

CHARACTERS AFTER STATEMENT END IN LINE 110 

MISSING 0R ILLEGAL DATA ITEM IN LINE 150 

Now let us see what we can do to fix the program so it will run. First v 
would like to see what is left of our program. The system command LIST wi 
do that for us. 



LIST 



10 


LET X=5 


20 


READ Y.Z 


40 


PRINT X 


60 


READ W 


70 


G0T0 9010 


120 


DATA 5*11*25.-5 


130 


PRINT W»2 


140 


G0T0 60 



The computer automatically wiped out all of the statements that did n( 
conform to BASIC requirements. So what remains ought to run, right? Wronj 
The computer has only eliminated the errors that are self-contained in sing] 
statements. These are sometimes called syntax errors or errors of form. Th 
computer has not yet looked to see if the statements fit together into a set c 
executable statements. To achieve that we type RUN again: 



RUN 

UNDEFINED STATEMENT REFERENCE IN LINE 70 

We can easily see that the computer cannot G0T0 9010 as there is ) 
line 9010 in the program. We take line 70 out by typing 70 followed 
RETURN and try again. 



70 



RUN 

LAST STATEMENT N0T 'END* IN LINE 140 

9999 END 

rum 



5 
625 

25 

0UT 0F DATA IN LINE 60 
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Now we have gotten something printed, but the program is all over the 
place. We can assemble it again with the LIST command or we may use a 
new command first. We can get nice numbering by the command RENUM- 
BER. Some computers use EDIT RESEQUENCE. We RENUMBER here and 
LIST the program in its present form. 

RENUMBER 
LIST 



10 LET X=5 

20 READ Y,Z 

30 PRINT X 

40 READ W 

50 DATA 5,11,25.-5 

60 PRINT Wt2 

70 G0T0 40 

80 END 

RUN 



5 

625 

25 

0UT 0F DATA IN LINE 40 

There is no substitute for experience. 

B-3 ERRORS THAT TERMINATE A RUN 

The possible errors in this category become more and more plentiful as 
you use more and more advanced capabilities. However, the error messages 
are rather explicit and so the most fundamental examples should serve to 
demonstrate how termination errors operate. Probably the most common error 
for beginning programmers is that the data is either missing or not matched 
correctly for the READ variables. 



10 


PRINT "THE RUN HAS BEGUN" 


20 


LET A=2 


30 


READ B, CD 


40 


PRINT B*CtA 


50 


PRINT "D ="JD 


60 


PRINT "WE G0T T0 LINE 60 AT LEAST' 


70 


READ X 


80 


PRINT X 


90 


DATA 3, 1 7, 1 1 


100 


END 


RUN 





THE RUN HAS BEGUN 

867 
D = 1 1 
WE G0T T0 LINE 60 AT LEAST 

BUT 0F DATA IN LINE 70 
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Not all computers will print the out of data message, but they will termi- 
nate after the last item of data is read if the program sends it back to READ 
again. 

You might instruct the computer to perform an illegal operation as follows: 

10 PRINT "A". "B^'^A-B". "AtB" 

20 READ A»B 

30 PRINT A.B.A-B.AtB 

40 G0T0 20 

50 DATA 1.2.5. 3.3. 41.2. 1.23. 4, 0.0. 4.03. 5 

60 END 

RUN 

A B 

1 2 

5 3 

3.41 2 

1.23 4 


ZER0 T0 £ER0 P3WER IN LINE 30 

Zero to the zero power is not defined. So the computer notifies you that it 
has come to this undefined condition and halts execution awaiting your pro- 
gram change. There are many more errors that will halt execution, but these 
examples should demonstrate the principle involved. 

B-4 ERRORS THAT CAUSE UNEXPECTED OR INCORRECT RESULTS 

These are the most difficult errors to find. Suppose you write a program and 
the computer prints nothing, but notifies you that it has run the program in 
the usual manner. 



A-B 


AtB 


-1 


1 


2 


125 


1.41 


11.6281 


-2. 77 


2.28887 



15 


LET 


X=S 


25 


LET 


Y=10 


30 


LET 


Z = Xt2 


40 


LET 


w=yt2 


70 


END 




RUN 







D0NE 



We got three blank lines and that is not what we wrote the program to do. 
It is reasonably obvious that we forgot to put in any PRINT statements. 



50 PRINT X;Y;Z; W 




10 PRINT "X Y 




KIIN 




X Y Xt2 


Yt2 


5 10 25 


100 



Xt2 Y»2' 
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If you think that you have the PRINT statements and do not get any 
printed results, look for a G0T0 that causes the computer to bypass the 
PRINT statements. 

The ways in which programs can give incorrect results are unlimited. And 
to make matters worse, the computer has no way of determining that the 
result is correct. This is the responsibility of the programmer. Consider the 
following program to read pairs of numbers and print their sum and their 
product and the number of pairs: 



10 


PRINT 


"A 


B 


SUM 


PROD • 


• 




20 


LET C: 


= 












30 


READ A, B 












40 


LET C- 


= C+1 












50 


PRINT 


AJBJ A+8 


; a*b;C 


J "PAIRS S0 FAR" 




60 


GOT0 


10 












70 


DATA 


10,20. 1 1 


.9 










80 


DATA 


1,2,-45. 


18 










90 


END 














RUN 
















A 


B 


SUM 


PROD 










10 


20 


30 


200 


1 


PAIRS 


S0 


FAR 


A 


B 


SUM 


PROD 










1 1 


9 


20 


99 


1 


PAIRS 


S3 


FAR 


A 


B 


SUM 


PROD 










1 


2 


3 


2 


1 


PAIRS 


S3 


FAR 


A 


B 


SUM 


PROD 










-45 


IS 


-27 


-810 


1 


PAIRS 


S0 


FAR 


A 


B 


SUM 


PROD 











0UT 0F DATA IN LINE 30 



We certainly do not need to have the headings printed more than once. 
So we want to change the G0T0 in line 60 as follows: 



60 1 


G0T02O 












RUN 














A 


B 


SUM 


PROD 








10 


20 


30 


200 1 


PAIRS 


S0 


FAR 


1 1 


9 


20 


99 1 


PAIRS 


S0 


FAR 


1 


2 


3 


2 1 


PAIRS 


S0 


FAR 


-45 


18 


-2 7 


-810 1 


PAIRS 


S0 


FAR 


0UT 


0F DATA 


IN 


LINE 30 









But now we still have to find out why the computer prints 1 for the number 
of pairs each time. Line 40 is LET C = C + 1. C must be each time the 
computer comes to line 40. This is because the G0T0 sends the computer 
to line 20 which is LET C = 0. So we change line 60 again. This time we want 
the computer to go only to the READ statement in line 30. 
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60 


G0T0 30 














KUiM 
















A 


B 


SUM 


PROD 










10 


20 


30 


200 


1 


PAIRS 


S3 


FAR 


11 


9 


20 


99 


2 


PAIRS 


S3 


FAR 


1 


2 


3 


2 


3 


PAIRS 


S0 


FAR 


-45 


IS 


-27 


-810 


A 


PAIRS 


S3 


FAR 



0UT 0F DATA IN LINE 30 

And now the program is as follows: 



10 


PRINT "A B SUM PROO " 


20 


LET C=0 


30 


READ A, B 


40 


LEI C = C+1 


50 


PRINT AJBJA+B;A*BJCJ "PAIRS S0 FAR" 


60 


G.3T0 30 


70 


DA TA 1 0. 20. 1 1 , 9 


ao 


DATA 1*2,-45. 18 


90 


END 




SUMMARY 



We begin to see some of the types of errors and the way in which they 
affect the running of our program. There are errors of language or syntax 
errors. There are errors that prevent execution such as G0T0 870 when there 
is no line 870 in the program. Some errors do not affect the computer until it 
tries to evaluate an expression that calls for an undefined condition. And 
finally we have seen some errors that give incorrect results. As we are making 
changes in programs we may find the LIST command helpful to see the 
program in its present form. As we change programs, the line numbers may 
become very scattered or very close together. The command RENUMBER or 
EDIT RESEQUENCE makes 10 the first line number and the intervals 10. 
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C-l TAB(X) 

The TAB(X) function is available on many BASIC systems. The TAB( ) 
function numbers the spaces across the terminal carriage and uses this number 
to designate where to print. XXX PRINT TAB (10); "HELL0 THERE" is 
an instruction to the computer to skip out to the space whose number is 10 
and begin printing there. See program HELL0. 

HELL0 

5 PRINT "HELL0 THERE" 

10 PRINT TA8C1O>J"HELL0 THERE" 

20 END 

RUN 

HELL0 

HELL0 THERE 

HELL0 THERE 

O0NE 

Some systems call the leftmost space zero and others call it one. Some 
systems treat the argument of the TAB( ) function mod 72, so that 
TAB(IOO) and TAB(28) mean the same thing. Others use mod 75, in which 
case TAB(IOO) means the same as TAB(25). 

There may be several TAB( )'s in the same PRINT instruction. The argu- 
ment of TAB( ) may be a variable as in program TAB(l)- 

TABC 1) 

'0 LET X=10 

20 PRINT TABCX5JXJ TABCX+ 1 0) » X+ 10; TABCX + 2S) J X + 25 

30 END 

RUN 

TABC 1> 

10 20 35 

D0NE 
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Notice that TAB( ) counts from the left margin every time it appears, not 
from the previous printed character- 

We may use the TAB( ) function to make the formatting a little simpler 
in program BANK2 in Sec. 4-3. Turn back to that program and look at lines 
132, 138, 156, 158, and 500 through 530. All of these lines were required 
to achieve flexible format. We may eliminate all of these as well as line 490 
and replace line 140 with 140 PRINT TAB(X); "$";FNH(P) and replace line 
160 with 160 PRINT TAB(X);"$";FNH(P1). Now all we need to take care of 
is a value for X. Let us try 35 the first time through. Anywhere before line 
140 we may insert ZZZ LET X = 35 and call for a RUN. 

530 

520 

510 

500 

490 

158 

156 

138 

132 

140 PRINT TABCX)J"$"JFNHCP) 

160 PRINT TABCX>J"S";FNH(P1> 

135 LET X=35 

RUM 

BANK 2 

FOR TEN YEARS 

§4.52 COMPOUNDED MONTHLY... $ 88.24 

#4.75% COMPOUNDED QUARTERLY... S 90.29 

The printed results are aligned nicely. Now let us list the new program in 
full with the value of X at 31 and call for a final RUN. 



BANK 2 

2 DEF FNH<X>=INTCX*l00+.5>/100 

10 LET P=P1=56.31 

20 FOR Y=l T0 10 

22 REM FOR TEN YEARS 

30 FOR M=l TO 12 

32 REM COMPOUND MONTHLY AND COMPUTE INTEREST 

40 LET I=P*4. 5/100/12 

50 LET P=P+I 

60 NEXT M 

62 REM THAT FIGURES THE INTEREST FOR THIS YEAR COMPOUNDED 

MONTHLY 
70 FOR 0=1 T0 4 
72 REM COMPOUND QUARTERLY 
80 LET I 1=P1*4. 75/100/4 
90 LET P1=P1 + I 1 
100 NEXT Q 
102 REM THAT TAKES CARE 0F THE QUARTERLY INVESTMENT F0R THIS 

YEAR 
108 REM NOW TO COMPUTE THE NEXT YEAR 
1 10 NEXT Y 

120 PRINT "FOR TEN YEARS" 

130 PRINT "§4.5% COMPOUNDED MONTHLY..."* 
135 LET X=3! 
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140 PRINT TAB(X)J"S";FNH(P) 

150 PRINT "84.75% C0MP0UNDED QUARTERLY..."! 

160 PRINT TAB(X)J"S";FNH(P1) 

9999 END 

RUN 
BANK2 

F0R TEN YEARS 

84.51 C0MP0UNDED M0NTHLY... S 88.24 

84.75X COMPOUNDED QUARTERLY... $ 90.29 

DONE 



C-2 IMAGE STATEMENT 

There may be an IMAGE statement available on your system. An IMAGE 
statement provides the printing pattern for a PRINT statement in yet another 
statement. For our BANK2 program, we would use the following set of 
statements: 

130 PRINT USING 140, FNH(P) 

140 :@4.5% C0MP0UNDED M0NTHLY $##.## 

150 PRINT USING 160, FNH(Pl) 

160 :@4.75% C0MP0UNDED QUARTERLY $##.## 

to achieve the results of the last RUN above. The IMAGE statement begins 
with a colon and the number signs specify the locations of the digits in the 
numerical results. In an IMAGE statement, you may specify the location of the 
decimal point and the number of digits on either side with the number of 
number signs. The IMAGE statement may specify printing for several num- 
bers by having several sets of number signs. You may also specify E-format 
by following the number signs with four exclamation marks (. . . ##!!!!). In 
our problem above, if we decide to change the location of the printed results, 
we simply retype lines 140 and 160. 
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( Terminal ) Used for beginning and ending of program. 



Input 
Output 




Indicates data entered into the computer or results 
returned by the computer. 



READ 


MAT READ 


READ* 


PRINT 


MAT PRINT 


READ: 


INPUT 


MAT INPUT 


WRITE* 
WRITE: 



Indicates that a decision is being made. 
IF XXXXXX THEN YYY 



Predefined 
process 



Indicates a sequence of program statements not in- 
cluded in the flowchart. May be used for G0SUB 
statement. 



© 



Connector. Indicates transfer from one statement to 
another other than the next higher numbered 
statement in the program. N matches another N 
elsewhere in the same flowchart. 



Liperauon 
Opens loop 
Closes loop 



Used for anything not already specified. 

NEXT X 
LET 

RETURN 
ST0P 
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APPENDIX E 



Summary of Statements in 



NOTE: Not all statements which appear in this appendix will run on all systems, 
and the list here does not cover every statement from some systems. 



END 

PRINT 

READ 

DATA 

INPUT 
LET 

G0T0 n 
IF-THEN n 



It is the highest numbered statement of every BASIC 
program. It is optional on some systems and re- 
quired on others. 

Prints values of variables, calculated values, and 
literal expressions inside quotes. Spacing is con- 
trolled by semicolons or commas. 

Enters values stored in DATA statements into vari- 
ables named in the READ statement. All legal 
BASIC variables (string and numeric) may be read 
in a single READ statement by separating them 
with commas. 

Stores values for READ statements. Items of data 
must be separated by commas. Some systems re- 
quire that strings be in quotes. 

Same as READ except that data is to be typed on the 
keyboard of the remote terminal. 

Assignment statement. The word LET is optional on 
many systems. Stores the value on the right of an 
equals sign in the variable named on the left. May 
be used to assign string variables. Multiple assign- 
ment is available on most systems. 

Names n as the next line number to be executed by 
the computer. 

Tests the truth of an algebraic sentence placed be- 
tween the IF and the THEN. Sends the computer 
to line n if the sentence is true. Control passes to 
the next line of the sentence is false. 
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REM 



F0R X = A T0 B 
STEPC 



NEXT X 



G0SUB n 



RETURN 
DEF FNA(X) 



DIM A( ),B$( ). . . . 

ST0P 
REST0RE 

CHANGE A$ T0 A 

CHANGE A T0 A$ 



Permits the programmer to remark upon the program 
in the program itself without affecting the program 
operation. Some systems allow an apostrophe, ', to 
serve the same purpose. 

Opens a machine loop with first value for X at A, last 
number B, and increment C. If C is omitted, the 
step defaults to an increment of 1. 

Closes machine loop. Sends the computer to the 
corresponding F0R statement to increment and 
test X. 

Sends the computer to a subroutine beginning at line 
n. Upon executing a RETURN statement, the com- 
puter returns to the line immediately following 
G0SUB n. 

Closes a subroutine. 

Program-defined function. The letter pair FN desig- 
nates that a function is called for. The function 
name is A and the argument is X. Any letter of 
the alphabet may be placed where the A is. Some 
systems permit several variables as arguments. 

Declares dimensions for one- or two-dimensional nu- 
meric arrays or string arrays or both. One number 
is required in the parentheses for a list, and two 
numbers separated by a comma are required for a 
two-dimensional array. 

Execution of ST0P statement causes termination of 
the RUN at that point. 

Restores all data in the program. The next item of 
data to be read will be the very first data item in 
the program (not discussed in text). 

Stores the ASCII code of the characters of the string 
A$ in the array A with the length of the string in 
characters stored in A(0). 

Stores a string in A$ with length specified in A(0) 
and characters determined by the ASCII code 
stored in the array elements of the A list. 



MATRIX INSTRUCTIONS 

MAT READ A Enters data into the array named A. Several arrays 

can be read in the same MAT READ statement by 

MAT PRINT A Prints the array named A with comma spacing. Sev- 

eral arrays may be printed with the same MAT 
PRINT statement by separating array names with 
a comma or a semicolon. The delimiter specifies 
the spacing for the preceding array. 
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MAT INPUT 

MAT C = A • B 
MAT A = B + C 
MAT A = B - C 
MATA=(K>B 

MAT A = ZER 



MAT A = C0N 
MAT E = IDN 



MAT X = INV(A) 
MAT A = TRN(B) 



Enters data into an array from the keyboard (not dis- 
cussed in text). 

Enters the product of A and B into array C. 

Enters the sum of B and C into array A. 

Enters the difference of B and C into array A. 

Multiplies each entry of B by the scalar K and enters 
the result into A. 

Creates the zero matrix (fills each entry of A with 
zero). ZER may be followed by redimensioning 
specifications in parentheses. 

Fills each element of A with 1. C0N may be followed 
by redimensioning specifications in parentheses. 

Forms the identity matrix E. E must be square. All 
elements with equal row and column numbers are 
1 and all other elements are 0. IDN may be fol- 
lowed by redimensioning specifications in paren- 
theses. 

Finds the inverse of A (if it exists) and enters it in X. 

Fills A with the transpose of B. 



SQR(X) 

ABS(X) 
SGN(X) 

INT(X) 



RND(X) 



RND 

RAND0MIZE 

SIN(X),C0S(X),TAN(X) 



FUNCTIONS 

Computes the nonnegative square root of X. X must 
be nonnegative. 

Computes the absolute value of X. 

Returns the value 1 for X positive, for X equals 
zero, and —1 for X negative. 

Returns integer part of X. For some systems this is 
the mathematically greatest integer function. For 
others, the computer simply chops off the digits 
to the right of the decimal point. (The results are 
the same for nonnegative numbers.) 

Generates a random number. In some systems the 
set of random numbers accessed is determined by 
the value of X. Some systems generate the same 
set of numbers each time the program is run, 
whereas others provide a different set and still 
others provide an option. See RND below. 

Returns a random number. The numbers will be the 
same on successive runs of the program if the 
RAND0MIZE statement is not present in the 
program aird different on successive runs if the 
RAND0MIZE statement is present. 

Causes the random numbers generated in successive 
runs of the same program to vary. 

Computes the sin, cos, or tan of X, where X must be 
in radians. 
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ATN(X) 



L0G(X) 
EXP(X) 
TAB(X) 



LEN(A$) 

EXT$(A$,I,, 



Computes the arctan of X. ATN(X) is in radians. 
The program must be written to determine the 
correct quadrant for the result. 

Computes the logarithm of X using base e. 

Computes the number whose L0G base e is X. 

Moves the printing mechanism to the (X + l)st posi- 
tion of the carriage unless the printing mechanism 
is already past that point, in which case there is 
no effect 

Returns the number of characters in the string A$. 

String extract function. Isolates a substring in A$ 
from the Ith to the Jth character inclusive. 



FILES 
READ #N,R 

READ #N; 
MAT READ # 
PRINT #N,R 



PRINT #N; 



IF END #N THEN n 



TYP(N) 



FILES 
Hewlett-Packard Files 

Names files to be used by the present program and 
makes them available for access. File names are 
separated by commas. 

Sets the file pointer to the beginning of the Rth rec- 
ord of the Nth file named in the files statement. In 
addition, when followed by a semicolon and vari- 
able list, this statement reads values from the file 
to the variables. 

When followed by a variable list, this statement reads 
from the file at a point previously established. 

Reads values from a file with the same options al- 
lowed for READ #. 

Sets the file pointer in the Nth file named in the files 
statement to the beginning of the Rth rcord and 
erases the contents of that record. In addition, 
when followed by a semicolon and a variable list, 
this statement causes the contents of the variables 
to be printed into the file. 

When followed by a variable list this statement 
causes the contents of the variables to be printed 
wherever the file pointer has been previously set. 

When executed, this statement sets a flag. If at any 
later time an attempt is made to read past the end 
of data or past the physical end of the file or to 

nrmf; nnst i"he rtlwQiVnl enrl of t"Tip flip prmfrnl 

passes to line n. 
The TYP (N) function takes on values from 1 to 4, 
depending on the nature of the next information 
in the file TYP(N) becomes 1 for number, 2 for 
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string, and 3 for end of file. If the argument is 
negative, the value 4 will be returned for end of 
record. 

General Electric Files 

FILES Names files to be used by the current program and 

makes them available for access. File names are 
separated by semicolons. 

ASCII Files 

READ #N, Reads data from the Nth file named in the program 

into the variables of the variable list following the 
comma. 

WRITE #N, Writes data from the variable list following the 

comma to the file. The variables in the list may 
be separated by semicolons or commas to achieve 
corresponding spacing in the file. 

IF M0RE #N Determines whether or not there is more data in the 

file. 

IF END #N Determines whether or not the end of the file has 

been reached. 

APPEND #N Allows additional data to be written to an existing 

file by setting the file pointer to the end of the Nth 
file and placing the file in the WRITE mode. 

SCRATCH #N Sets the pointer of the Nth file to the beginning of 

the file, erases the file, and places it in write mode. 

RESTORE #N Sets the pointer of the Nth file to the beginning of 

the file and places it in the READ mode. 

Binary Sequential Files 

Binary sequential files may be processed by all of the above statements by 
substituting a colon (:) for the pound sign (#). Binary files should be less ex- 
pensive to work with; however, ASCII files are very convenient due to the fact 
that they may be listed at the terminal. 



READ :N, 
WRITE :N, 
IF M0RE :N 

IF END :N 

SCRATCH :N 



Random Access Files 

Same as ASCII. 

Same as ASCII. 

Tests true, except when the file pointer is at the phy- 
sical end of file. 

Tests false, except when the file pointer is at the phy- 
sical end of file. 

Places the file pointer at the beginning of the file and 
fills the file with binary zeros. 
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REST0RE :N 
SETW N T0 X 



Places the file pointer at the beginning of the file 
without altering the contents of the file. 

Places the file pointer to the Xth word of file N. To 
access a random file by record, the formula 
W°(R — 1) + 1 places the pointer at the begin- 
ning of the Rth record if there are W words per 
record. 
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Index of Programs in Text 



Program 

ADDA.B 
ALLZER 



ARANG1 

ARANG2 

ARANG3 

ARANG5 

ARANGE 

ARRAY1 

ARRAY2 

ARRAY3 

ARRAY4 

ASIS 

AVERAGE 

AVG 
AVGCNG 

BANK1 

BANK2 

BASE 

BASE-2 

BIRTH 

CHANGE 

CHANGF 

CLASS 

CL0CK1 
CL0CK2 



Description Page 

Adds complex numbers in (A,B) form 148 
Finds nonreal zeros for some fourth- 
degree polynomials 171-172 
Prints list after each exchange in 

ARANGE 42 

Uses G0SUB for printing in ARANG1 44 

Orders a list of random integers 65 

Orders lists in excess of 10 elements 67 

Orders list of 10 numbers from data 40 

Demonstrates filling an array 79 

Prints contents of ARRAY1 80 

Detailed array manipulation 81 

More detailed than ARRAY3 82-83 
ABS( ), SQR( ), INT( ), and SGN( ) 

demonstration 48 
Calculates test average from file SC0RE 

(GE) in 

Average test scores 31 
AVG done with nested loops First nested 

machine loops 32 
Compound amount on $56.31 at two 

rates 56 
BANK1 with rounding and spacing 60 
Change base- 10 numbers to base-2 96 
Base with digits printed closely packed 97 
Probability of two identical birthdates 205 
Demonstrates change statement (GE) 107 
Demonstrates EXT$ function (GE) 107 
Probability of membership on a commit- 
tee 204 
Clock arithmetic with time of day 69 
Modifies CL0CK1 69 
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Program 
CMPINT 

C0MFAC 

C0MP-1 

C0NVRT 

C0URS1 

C0URS2 
DAYS01 
DEF( ) 
DEMREM 

DESCRT 

DICE 

DICE-1 

DIGIT 

DIGIT2 

ENTERA 

FIRST$ 

FLIP 

FLIP-1 

G0SUB 

INTZER 

IZER01 

LADER 

LADER1 

LADER2 

LAWC0S 

LAWSIN 

LEFT 

LIST1 

L00P1 

L00P2 

L00P3 

L00P3+ 

LUPDEM 

MAMD12 

MAT-1 

MAT-2 

MAT-3 

MAT-4 

MAT-5 

MAT-6 

MATINV 

MATSP1 



Description Page 

Finds compound amount of $2000 after 

nine years 33 
Finds greatest common factor using the 

Euclidean algorithm 93 

Finds nonreal zeros for trinomials 170-171 

Converts inches to feet and inches 54 
Finds numbers of persons taking five 

courses 77 
C0URS1 with random data 78 
Reads days of week into MAT W$(GE) 106 
Introduces DEF 58 
Demonstrates finding remainder after in- 
teger division 53 
Uses Decartes' Rule of Signs 174 
Probability of two l's on 10 dice 211 
Probability of to 10 l's on 10 dice 211 
Prints base- 10 numbers digit by digit 99 
Prints integers using string output (HP) 105 
File prints one name to a record (HP) 113 
First string program 102 
Simulates flipping a coin 50 times 207 
Simulates flipping 50 coins 10 times 207-208 
G0SUB demonstration program 43 
Finds integral zeros of polynomials 161 
INTZER with a subroutine-defined func- 
tion 164 
Uses SIN( ) in right triangle 135 
Gets several values for LADER 136 
Introduces arctangent function 137 
Given three sides of a triangle 143 
Given two angles and nonincluded side 140 
Probability of 10% success on 100 bi- 
nomial trials 212 
First list demonstration program 44-45 
First loop introduction 25 
Second loop introduction 25 
First machine loop using F0R-NEXT 26 
Uses the loop variable 26 
Demonstrates several loop properties 27 
Multiply and add mod 12 70 
Preintroduction to matrix instructions 176 
First MAT READ and MAT PRINT 177 
Shows the order in which MAT READ 

reads 177 

Prints column vector 178 

Prints row vector 178 

Shows redimensioning of a matrix 178 

Takes the inverse of a matrix 191 

Special matrices in BASIC 188 
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Program 
MLTR.G 

M0D12 

N! 
NCR 

NPR 

0RD$ 
0RDER$ 
0RDERA 
0RDERAVG 

PAIRS 

PASCAL 
PICK 

PL0T1-PL0T5 

P0LAR 

PRIME1 

PRIME2 

PRINT 

PRINT1 

PRINT2 

QUAD1 

QUAD2 

RAND3+ 

READ 

READ01 

READ02 

READA 

READTEST 

REAL 

REAL1 

REDUCE 

RND 

RND(l) 

RND(2) 

RND(3) 

R0LL 

R00TS 

R0UND 
SC0RE 



Description Page 

Multiplies two complex numbers in polar 

form 151 

Mod 12 addition 70 

Computes factorial N 199 
Computes combinations of N things R 

at a time 201-202 
Computes permutations of N things R 

at a time 200 

Compares strings for order 102 

Alphabetizes characters of a string (GE) 108 

Alphabetizes names in a file (HP) 114 
Arranges student data by test average in 

a binary file 120 
Prints all possible pairs from two sets of 

four numbers 38 

Prints numbers of Pascal's triangle 213 
Selects numbers from a random access 

binary file 119 
PL0T1 through PL0T5 develop a plot- 
ting program 127-130 
Prints coordinates from polar graphing 145 
Finds prime integers from data 49 
More efficient than PRIME 1 49 
First HP file program 110 
Uses 'IF END' in HP file 111 
Prints to a file random access (HP) 112 
Finds real roots of 

AX f 2 + BX + C = 123 
Analyzes parabola 125 
Random decimal numbers 1. to 11 63 
Reads a data file (HP) 111 
Uses 'IF END' in HP file 111 
Reads from a file random access (HP) 113 
Reads names from a file (HP) 113 
Reads file SC0RE (GE) 116 
Finds intervals for real zeros of poly- 
nomials 166 
REAL with input to reduce interval size 166—167 
Reduces common fractions 52 
Loads a binary file with 18 random num- 
bers (GE) 119 
Introduces random number generator 62 
Random integers to 9 62 
Random integers 1 to 10 63 
Simulates rolling 6 dice 1000 times 208 
Takes roots of complex numbers in polar 

form 153 

Uses INT(X » 100 + .5)/100 for first time 57 

Listing of ASCII file (GE) 116 
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Program 

SC0RE1 

SEG$1 

SEG$2 

S0LVE 

SRVEY1 

SUM1 

SUM2 

SUM3 

SUM3+ 

SURVEY 

SYNDIV 

TCHB 

TCHB+ 

T0LL-1 

T0LL-2 

T0LL-3 

T0TAL 

T0TAL+ 

TRAGL 

TRI-BI 

TRIG1 

TRP0S1 

TRP0S2 

TV'S 

WRITEAVG 



Description Fage 

Listing of ASCII file (GE) 118 
Demonstrates string subscripts (HP) 103 
Prints one digit numeric using string out- 
put (HP) 104 
Solves four equations and four unknowns 192 
More processing of data in SURVEY 88-89 
Adds integers 1 through 50 17 
Modifies SUM1 17 
Modifies SUM2 20 
SUM3 using machine loop 29 
Uses a 15 by 5 array to analyze a ques- 
tionnaire 86—87 
Divides a polynomial by X — R 158 
Tabulates four items per family 76 
TCHB done with an array 83-84 
Reads and prints data for T0LL-2 182 
Prints schedule of tolls paid 184-185 
T0LL-2 with matrix operation 186 
Finds total cost of five different items 21 
T0TAL using machine loop 29 
Demonstrates variable loop limit 34 
Multiplies a trinomial by a binomial 156 
Prints trig table to 80 degrees 134 
Takes the transpose of a column vector 195 
Takes the transpose of a 2 by 4 matrix 195-196 
Tabulates survey of TV sets per family 74 
Loads file SC0RE1 from file SC0RE 

(GE) 118 
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Index 



ABS (Y) function, 47 
Addition 

matrix, 186 

modular, 67 
Algorithm, Euclidean, 91-92 
Argument, definition of, 47 
APPEND N statement, 118 
Arithmetic, modular; see Modular arith- 
metic 
Arithmetic operators, definition of, 4 
Arrays, 78-79, 84 

DIM (two-dimensional), 85, 86, 89 

dimensioning, 85—86 

MAT instructions in, 176 

structure of, 79 
Artificial data, 20 
ASCII, 102, 115, 116 
Assignment operator, 10 
Assignment statement, 10 
ATN (X) function, 136 
Axis of symmetry, 123, 124 

Base-2, 93, 94 

Binary files, 118 

Binomial experiments, 212 

Binomial theorem, 212 

Binomial trials, 210-213 

Birthday problem, 205 

Block diagramming; see Flowcharting 

Circular functions, 132, 133 
CLE; see SCR 
Coefficient matrix, 192 
Column vector, definition of, 179 
Combinations, 200 
Comma, use of, 2, 3, 101 
Comma delimiter, 10—11 
Complex numbers 

addition of, 148 

de Moivre's theorem, 152 

division of, 148 

multiplication of, 148 

polar form, 150, 151 

rectangular form, 147, 149 

roots of, 152 

subtraction of, 148 
Complex zeros, 168-175 
Compound fraction, decimal value for, 
6 



Compound interest, 55 

calculating, 32 
Computer list, 35-36, 40-45 

dimensioning, 66 
Computer functions 

ABS(Y), 47 

ATN(X), 136 

DEF FNA(X), 57, 58, 61 

INT(X), 47, 48, 51 

RND(X), 62-63 

SGN(N), 47 

SQR(Y), 47 

trigonometric, 133, 136 
C0N, 187 

Conditional transfer, 18, 19 
Congruence conditions, 139 
Conversions 

base-10 to base-2, 93-96 

degrees to radians, 133 

dimensions, 50-51 

inches to feet and inches, 51, 54 
Coordinate systems, 128 

polar, 144, 150, 151 

rectangular, 132, 138, 143, 147 
C0S(X) function, 133 
Cosines, Law of, 139-142 
CREATE command, 110 

Data files, 109-121 

access, 115 

ASCII, 116-118 

binary, 118 

data storage, 1 15 

General Electric, 115 

Hewlett-Packard, 110-115 

random access, 112, 118-120 
Data processing, 2 

arrays, 78 

questionnaires, 85 

tabulation, 73-77 
DATA statement, 3-4, 101, 116 
Debugging, 218 
Decision-making, 14 
DEF, 57, 58 
DEG(X), 133 

Degrees, conversion to radians, 133 
Delimiter, 73 

comma, 10-11 

semicolon, 10-11 
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De Moivre's theorem, 152 

Depressed polynomial, definition of, 169 
Descartes' Rule of Signs, 173, 175 
Dimension conversions, 50-51 
Dimensioning 

arrays, 85-86 

lists, 66 
DIM statement, 66, 103 

two-dimensional, 85, 86, 89 
Division 

of polynomials, 156-158, 159 

synthetic, 158 
Dummy argument, definition of, 62 
Dummy data; see Artificial data 

E-format, 8-9 

END statement, 2, 12 

Enumeration 

combinations, 200 

factorial, 198 

partitioning, 202 

permutations, 198-199, 200, 202 

Principle of, 197-198 
Equality, matrix, 187, 190 
Equals sign, 10 

in IF-THEN statement, 15 

as relational operator, 15 
Error diagnosis, 218-224 
Euclidean algorithm, 112-113 

greatest common factor, 91 
Event, definition of, 205 
Executive program, 4 
Experiment in probability, definition of, 

197, 207 
Exponentiation, symbols used for, 4 

Factorial, 198 

Factoring integers, 48-49 

Factor theorem, 160 

Failure in probability, definition of, 197 

Fibonacci numbers, 39, 46 

FILES statement, 110, 117 

Flowcharting, 13-14, 20 

F0R-NEXT statement, 26, 28, 31, 32 

Fractions, reducing, 50-51 

Functions 

circular, 132, 133 

computer, see Computer functions 

G0SUB statement, 41, 45 
G0T0 statement, 3, 12, 18 



Greatest common factor, 51, 54, 91 

Identity matrix, 187 

IDN, 187 

IF END statement, 111 

IF-THEN statement, 15, 18-19 

IMAGE statement, 227 

Initializing, 9-10 

INPUT statement, 166 

Integers 

computing greatest, 47 

factoring, 48-49 
Integral zeroes of polynomials, 159-163 
INT(X) function, 47, 48, 51 
INV( ) statement, 191-192 

Law of Cosines, 139-142 
Law of Sines, 138-139, 141, 142 
LEN( ) function, 103 
LET statement, 5-6, 11, 56 

as assignment statement, 10 
Lists; see Computer list 
Location principle, 163 
Logical end, definition of, 69 
Log-on; see Sign-on 
Loops, 24-25, 31-34 

F0R-NEXT, 26, 28 

machine-made, 26, 28-30 

nested, 32 

Machine-made loops, 26, 28-30 
MAT instructions, 176 
MAT READ, 178-179 
MAT PRINT, 177, 178, 179 
Matrix, 179; see also Arrays 

coefficient, 192 

creating zero matrix (ZER), 187 

filling locations with 1 (C0N), 187 

forming identity matrix (IDN), 187 

identity, 187 

inverse of, 190-191 

transpose of, 195 
Matrix addition, 186 
Matrix algebra, 185-188 
Matrix equality, 187, 190 
Matrix inverse, 190, 191 

difference from transpose, 195 
Matrix multiplication, 185-186 

scalar, 187 
Matrix subtraction, 186 
Maximum, 124 
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Minimum, 124 
Modular arithmetic, 67 

addition, 70 

multiplication, 70 
Multiplication 

matrix, 185-186 

modular, 70 

of polynomials, 155 

scalar, 184 
Multiplication symbol, use of, 4 
Mutually exclusive events, 211, 212 

NAME command, 16 
Nested loops, 32 
Nomeal zeros, 169 
Numerical order, 40-^tl 

OPEN command, 110 
Operands, definition of, 4 
Operators 

arithmetic, 4 

assignment, 10 

relational, 15, 19, 20 
Ordering routine, 65 
Outcome, definition of, 197 

Paper tape, 215 
Parabola 

definition of, 123 

plotting, 125-131 
Parentheses, 7-8 
Pardoning, 202 
Pascal's Triangle, 213 
Permutations, 198-199, 200, 202 
Polar axis, definition of, 144 
Polar coordinate system, 151 

complex numbers, 150 

polar axis, 144 

pole, 144 
Pole, definition of, 144 
Polynomials 

abbreviation of, 159 

complex zeros, 168-175 

definition of, 154 

depressed, 169 

Descartes' Rule of Signs, 173, 175 

division of, 156-158, 159 

Factor theorem, 160 

integral zeroes of, 159-163 

Location Principle, 165 



multiplication of, 155 

polynomial function, 160 

quotient, 173 

real zeros, 163, 165-167 

Remainder theorem, 159 

second-degree, 168 

synthetic division, 158 

variation in sequence, 173 
Predefined process, 41 
Prime numbers, 48-49 
Principle of Enumeration, 197-198 
PRINT statement, 1, 2, 101 
PRINT USING function, 61, 227 
Probability 

binomial trials, 210-213 

"birthday problem," 205 

definition of, 197, 204 

event, definition of, 205 

experiment, definition of, 197 

failure, definition of, 197 

independence, 205 

outcome, definition of, 197 

success, definition of, 197 
Program, definition of, 1 

executive, 4 
Program defined functions, 55—60 
Pseudo random number generator, def- 
inition of, 62 
Pythagorean theorem, 132 

Quadratic formula, 122, 168 
Quadratic function 

definition of, 122 

graph of, 123-124 

quadratic formula, 122, 168 

zeros of, 122-123 
Questionnaire, 77, 85 
Quotient polynomial, 157 

storing of, 173 

Radians, definition of, 132, 133 
RAD(X) function, 133 
Random access, 115 
Random access files, 112, 118-120 
Random number generator, 62-71, 206— 
207 

dummy argument, 62 

pseudo random number generator, 62 

RND(X), 62-63 
READ statement, 3-4 
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READ #N statement, 117 
Real zeros, 163, 165-167 
Records, 118 

Rectangular coordinate system, 132, 
138, 143 

complex numbers, 147, 149 
Relational operators 

equals sign as, 15 

"greater than," 19 

"greater than or equal to," 20 

"less than," 19 

"less than or equal," 20 

"not equal to," 20 
REM statement, 13, 16-17 
Remainder, 51, 91 
Remainder theorem, 159 
Remote terminal, definition of, 1 
Replacement operator; see Assignment 

operator 
REST0RE #N statement, 118, 119 
RETURN statement, 41, 44-45 
Right triangles, 133, 135 

computing angles, 136 
RND(X) function, 62-63 
Roots, complex numbers, 152 
Rounding off, 57 
Routine, ordering, 65 
Row vector, definition of, 179 
RUN command, 4, 5 

Scalar multiplication, 187 

Scientific notation, 8-9 

SCR command, 4-5 

SCRATCH #N statement, 117, 118 

Selections, 200 

Semicolon delimiter, 10-11 

Sequential access, 115 

SETW statement, 119 

SGN(N) function, 47 

Sign-on, 4 

Simulation, random 

random number generator, 206-207 
Simultaneous linear equations 

printing results, 194-195 

solving, 192-193 
Sines, Law of, 138-139, 141, 142 

l~>TXT/17-\ f .• TOO 

oil\{s\) iuncuuu, iuo 

Spacing, 58-59 

comma, 10, 11 

semicolon, 10, 11, 96 
SQR(Y) function, 47 



Statements 

DATA, 3-4 

DEF, 57, 58 

DIM, 66, 85, 86 

END, 2, 11 

F0R-NEXT, 26, 31, 32 

G0SUB, 41, 45 

G0T0, 3, 11, 18 

IF-THEN, 15, 18-19 

INPUT, 166 

LET, 5-6, 10, II, 56 

READ, 3-4 

REM, 13, 16-17 

REST0RE, 108, 110 

RETURN, 41, 44-45 

ST0P, 59 
ST0P statement, 59 
Strings, 101-109 
String array scheme, 106-108 
String variable, 101, 103 
Subroutine, 41, 45 
Subscripts, 35, 103 
Substring scheme, 103 
Subtraction, matrix, 186 
Success in probability, definition of, 

197 
Sum array, 186 
Symmetry 

axis of, 123 

definition of, 124 
Syntax errors, 220 
Synthetic division, definition of, 158 
System commands, 4-5 

NAME, 16 

RUN, 4, 5 

SCR, 4-5 

Sign-on, 4 

TAB(X) function, 225 
Tabulating 

one item, 73-75 

several items, 75 

yes— no answers, 76-77 
TAN(X) function, 133 
Tape, paper, 215 
Tape punch, 215 
Tape reader, 216 
Transpose, of a matrix, 195 
Transfer 

conditional, 18 

unconditional, 18 
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Triangle 
area of, 138 

Law of Cosines, 140-142 
Law of Sines, 138-139 
right triangles, 133, 135, 136 
Trigonometric ratios, 133 
Trigonometry 

area of triangle, 138 

circular functions, 132 

complement, 135 

congruence conditions, 139 

Law of Cosines, 139-142 

Law of Sines, 138-139, 141, 142 

polar coordinate system, 144, 150, 

151 
Pythagorean theorem, 132 
radians, 132 
rectangular coordinate system, 132, 

138, 143 
trigonometric computer functions, 

133, 136 

trigonometric ratios, 133 



TRN( ), 195-196 
Two-dimensional list; see Arrays 

Unconditional transfer, 18 

Variation in number sequence, defini- 
tion of, 173 
Vectors 

column, 179 

row, 179 

WRITE #N statement, 117 

ZER, 187 

Zero subscripts, 155 

Zeros of polynomials 

complex zeros, 168-175 

of function, 159 

integral zeros, 159-163 

nonreal zeros, 169 

real zeros, 163, 165-167 



BASIC BASIC: An Introduction to Computer Programming in 
BASIC Language, Second Edition 

James S. Cofln 

". . . an excellent introduction to the use of BASIC through remote 
terminals and time sharing . . . clearly written and well-organized," 
said Computing Reviews about the first edition of this popular 
introductory book. Anyone can learn to write computer programs 
in BASIC using this book. Not only does it describe the essential 
statements of BASIC and use them in sample programs, but this 
new edition now includes a chapter on strings and files. 

The author uses over 100 sample programs to illustrate the 
essential techniques of the language and to integrate BASIC pro- 
gramming with mathematics. Each language statement or capabil- 
ity is clearly explained at the time that it is first used in a sample 
program. Every section is followed by practice problems. Solutions 
to even-numbered problems appear in the text, the remainder in 
the separate Teacher's Guide. 

Other Books of Interest . . . 
ADVANCED BASIC: Applications and Problems 

James 5. Coan 

This is the follow-up BASIC text for those who want to extend their 
expertise. It offers advanced techniques and applications, including 
coordinate geometry, area, sequences and series, polynomials, 
graphing, simulations, and games. #5855-1, paper, #5856-X, cloth, 
192 pages. 

THE BASIC WORKBOOK: Creative Techniques for Beginning Programmers 

Kennelh E. Schoman, Jr. 

Here is a hands-on approach to learning BASIC and the fundamen- 
tals of problem-solving using a computer. Through many exercises, 
readers develop a workable BASIC vocabulary, a feeling for the 
logic and intrigue of programming algorithms, and the self-confid- 
ence needed to use a computer in a variety of applications. #5104-2, 
paper. 128 pages. 

GAME PLAYING WITH BASIC 

Donald D. Spencer 

Enjoy the challenge of competition by playing such computer games 
and puzzles as 3-D Tic-Tac-Toe, Nim, Roulette, Black Jack, Magic 
Squares, the 15 Puzzle, Go-Moko, Keno, Morra, Baccarat, and many 
others. The author writes in a nontechnical style and includes the 
rules of each game, how each game works, illustrative flowcharts 
and diagrams, and the output produced by each program. #5109-3, 
paper, 176 pages. 
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